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IDENTIFICATION 


PRODUCT CODE: AC=S8368-MC 

PRODUCT NAME: CZUDEBO UDA DISK FORMATTER 
PRODUCT DATE: 14=APR-82 

MAINTAINER: DIAGNOSTIC ENGINEERING 
AUTHOR: DALE KECK 


i INFORMATION IN THIS DOCUMENT IS_ SUBJECT TO CHANGE WITHOUT 
TICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 


EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 


RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 
NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1981,1982 BY DIGITAL EQUIPMENT CORPORATION 
THE FOLLOWING ARE TRADEMARKS OF DIGITAL ECUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DECTAPE 
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1.9 GENERAL INFORMATION 


1.1. PROGRAM ABSTRACT 


This program will format any disk drive connected to a UDA-50 disk 
controller. There are three ways to format a disk with this program: 


1. Reformat - Format the disk with the bad sector information that was 
hs ay ee disk at the factory. This is the normal way to 
ormat a disk. 


2. Reconstruct = Format the disk without dy any bad sector 
information. This should be used only when the bad sector information 
has been destroyed or for some reason can no longer be read from the 
disk. This method may also be specified in the disk drive's maintenance 
manual for special cases (eg. changing an RM/RA80 spare HDA from RM80 
format to RA80 format. 


3. Restore = Format the disk using bad sector information obtained from 
a disk file on the XXDP+ system load device. This method is provided 
for use by manufacturing. No files are provided, nor any method of 
obtaining the files, at this time. 


The format operation is performed by a Diagnostic Utilities and 
Protocol (DUP) program loaded into the UDA-50 disk controller. The 
host program simply downline loads the DUP program in the UDA-50 and 
monitors its execution. The DUP program obtains parameters from the 
host program (eg. drive number and format mode) and requests the host 
program to print error and summary messages. The DUP program is also 
commonly called a ‘‘diagnostic machine’’ (DM) program. 


This program can only format in one mode at a time. In RESTORE mode, 
only one disk may be selected in the hardware questions or an error 
message will result and the program will stop. 


In REFORMAT and RECONSTRUCT modes, any number of disk drives may be 
selected. A UD4-50 can oniy tormat one disk at a time, so each disk on 
a UDA-50 will be selected Sequenttes ly. If the disk drives to be 
formatted are connected to different UDA-50s, all UDA-50s will be run 
simultaneously. For example, lets assume three units are selected for 
formatting in the hardware questions, units 1 and 2 are connected to 
one UDA-50 and unit 3 is connected to a different UDA-50 (Unibus 
addresses are different). This program will gugonet teak ty start 
simultaneous format operations on units 1 and 3. When unit 1 finishes 
(or errors), unit 2 will be started. Afte> units 2 and 3 are finished, 
the procram stops. 


This program will stop after each pass (all units formatted once). 
There is no need to specify a PASS switch on the command Line to the 
Diagnostic Runtime Services (eg. START/PASS:1). 
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Special provisions have been made to allow this program to run under 
an APT system in manufacturing. This system does not allow questions 
to be asked of an ag ong ey a condition also exists under XXDP+ 
when the UAM flag is set. In this condition, only reformat mode can be 
selected. Selecting RECONSTRUCT or RESTORE will result in an error. 
Also, a date of 1-JAN-70 will be written on the disk. 


1.2 SYSTEM REQUIRErIENTS 


This a Se was designed using the PDP-11 Diagnostic Runtime Services 
revision C. Run time environments are determined by the Runtime 
Services and may change as new versions of the Services are developed. 
The initial version will require the following: 


PDP-11 Unibus processor 

28K words of memory (minimum) 

Console terminal 

XXDP+ Load media containing this program 
One or more UDA-50 subsystems 


A system clock = either type L or P = will be used to time 
the DUP program and report runtime, if available. If no system clock 
is available, this program cannot detect a hung DUP program. 


2.0 OPERATING INSTRUCTIONS 


This section contains a brief description of the Runtime Services. For 
detailed information, refer to the XXDP+ User's Manual (CHQUS). 


2.1 COMMANDS 


There are eleven Legal commands for the Diagnostic Runtime Services 
(Supervisor). This section Lists the commands and gives a very brief 
description of them. The XXDP+ User's Manual has more details. 


COMMAND EFFECT 

START Start the diagnostic from an initial state 
RESTART Start the diagnostic without Sadetot izing 

CONT INUE Continue at test that was satorrupted (after *C) 
te Continue from an error ha 

EXIT Return to XXDP+ Monitor {XKDPS OPERATION ONLY!) 


Activate a unit for testing (all units are 
considered to be active at start time 

DROP Deactivate a unit 

PRINT Print voariatical information (see section 4.0) 


SEQ 0004 
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DISPLAY Type a List of all device information 


FLAGS Type the state of all flags (see section 2.3) 
ZFLAGS Clear all flags (see section 2.3) 


A command can be recognized by the first three characters. So you 
may, for example, type ‘‘STA’’ instead of ‘‘START"’. 


2.2 SWITCHES 


| 

| 

| There are several switches which are used to —— supervisor 

| operation. These switches are appended to the legal commands. All of 
the legal switches are tabulated below with a brief description of 

| pach. it the descriptions below, a decimal number is designated by 


SWITCH EFFECT 
/TESTS:LIST Execute re tests specified in 

the list. ist is a string of test 

numbers, for example = /TESTS:1:5:7-10. 

This list will cause tests 1,5,7,8,9,10 to 

be run. All other tests will not be run. 
/PASS :DDDDD Execute DDDDD passes (DDDDD = 1 to 64000) 
/FLAGS:FLGS Set specified flags. Flags are described 

in section 2.3. 
/EOP:DDDDD Report end of pass message after every 

DDDDD pecose ots (DDDDD = 1 to 64000) 
/UNITS:LIST TEST/ADD/DROP only those units specified 
in the list. List example = /UNITS:0:5:10-12 
use units 0,5,10,11,12 (unit numbers = 0-63). 


Example of switch usage: 
START/TESTS: 1-5/PASS: 1000/E0P: 100 


The effect_of this command will be: 1) tests 1 through 5 will be 
executed, 2) all units will tested 1000 times and 3) the end of pass 
messages will be printed after each 100 passes only. A switch can be 
recognized by the first three characters. You may, for example, type 
**/TES:1-5°" instead of ‘’/TESTS:1-5"". 


Below is a table that specifies which switches can be used by each 
command. 


: 


SEQ 0005 


-—_———— 
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2.3 FLAGS 


Flags are used to set up certain operational parameters such as 
looping on error. All flags are cleared at startup and remain cleared 
until explicitly set using the flags switch. Flags are also cleared 
after a START or RESTART command unless set using the wing oyeees 

The ZFLAGS command may also be used to clear all flags. With the 
exception of the START, RESTART and ZFLAGS commands, no commands 
affect the state of the flags; they remain set or cleared as 
specified by the last flag switch. 


FLAG EFFECT 

HOE Halt on error = control is returned to 
runtime services command mode 

LOE Loop on error 

IER* Inhibit all error reports 

IBE* Inhibit all error reports except 


first level (first level contains 
error type, number, PC, test and unit) 


IXE* Inhibit extended error reports (those 
called by PRINTX macro’s) 

PRI Direct messages to line printer 

PNT Print test number as test executes 

BOE BELL*’ on error , 

UAM Unattended mode (no manual intervention) 

IDU Inhibit program dropping of units 

LOT Loop on test 


*Error messages are described in section 3.1 


See the XXDP+ User's Manual for more details on flags. You may 
specify more than one flag with the FLAG switch. For example, to 
cause the program to loop on error, inhibit error reports and type a 
*BELL’’ on error, you may use the following string: 


/FLAGS:LOE : IER: B0E 


SEQ 0006 
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2.4 HARDWARE QUESTIONS 


user for hardware information by typing “CHANGE HW (L) ?°' . When you 
answer this question with a ‘'Y’’, the Runtime Services will ask for the 
number of units (in decimal). You will then be asked the fol lowing 


When a diagnostic is STARTed, the Runtime Services wry nr nes the 


questions for each unit. When you answer this question with an ° 
the Runtime Services will use the answers built into the program by 
the SETUP utility (see chapter 6 of the XXDP+ User's Manual). If you 
have never run the SETUP utility on this program file, the default 
values Listed below (just before the question mark) will be used. 


UNIBUS ADDRESS OF UDA (0) 172150 ? 


Answer with the address of the UDAIP register of one UDA as 
addressed by the processor with memory management turned off 
Se even 16-bit address in the range of 160000 to 


VECTOR (0) 154 ? 


Answer with the interrupt vector address of the UDA. A vector 
address in the range of 4 to 774 may be specified. The UDA 
does not have a vector “hard wired’’ to it, so any vector not 
being used by this program and XXDP+ may be used. 


BR LEVEL (D) 5 ? 


Answer with the interrupt priority used by the UDA. Levels 4 
to 7 are accepted. This level must match the level “hard 
wired’’ in the UDA by the priority plug. 


UNIBUS BURST RATE (D) 63 ? 


The UDA allows the ability to control the maximum number of 
words transferred across the UNIBUS each time the UDA becomes 
master. The default answer of 63 will allow for the fastest 
execution of this diagnostic program. You may answer with the 
value your operating system uses or use zero which will tell 
the UDA to supply a value that should work on any system. A 
decimal number in the range of 0 to 63 may be specitied and 
all values should work on any system. A larger value will 
allow for a faster running program. The value will be passed 
directly to the UDA during initialization. 


DRIVE NUMBER (D) 0 ? 


Answer with the drive number of the drive you wish to test. 
This is the number which appears on the “‘unit plug’ on the | 
front of the disk drive. On a multi-unit drive, each sub-unit 
number on the drive must be tested as a separate unit to 
completety test the drive. A maximum of eight logical drives 
may be tested on one UDA at a time (UDA configuration Limit). 


SEQ 0007 


/ ' 
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2.5 SOFTWARE QUESTIONS 


After you have answered the hardware questions or after a RESTART or 
CONTINUE command, the Runtime Services will ask for software _ 
parameters. You wil. be prompted by ‘“‘CHANGE SW (L) ?°’ If you wish to 
change any parameters, answer by typing ‘‘Y’’. The software questions 
and the default values are described in the next paragraphs. You may 


change the default values with the SETUP utility. 
REFORMAT USING EXISTING BAD SECTOR INFORMATION (L) Y ? 


If this question is answered ‘‘YES'’, then the user wants the 
REFORMAT mode format operation. REFORMAT mode will use the 
bad sector information that is already on the disk. Any. 
other mode will destroy this information. If this question 
is answered "NO’’, the following will be asked to be sure the 
user knows what he is doing. 


NOT USING EXISTING INFORMATION WILL DESTROY THE FACTORY BAD SECTOR 
INFORMATION ON THE DISK. 
AGAIN = REFORMAT USING EXISTING BAD SECTOR INFORMATION (L) Y ? 


This is asked to verify that the user does want to destroy 
the bad sector information on the disk and run another 

format mode. If this is answered “'YES’’, then the user wants 
the REFORMAT mode format operation and use the ontete , 
bad block information. If again answered ‘'NO"', the following 
question will be asked. 


RECONSTRUCT BAD SECTOR INFORMATION (L) Y ? 


A *'VES*’ answer will cause a reconstruct mode format 
operation. If answered ‘NO’’, the following will be asked 
to verify the user really wants the restore mode format. 


DO YOU HAVE A FILE ON THE SYSTEM LOAD DEVICE 
CONTAINING BAD SECTOR INFORMATION (L) N ? 


Note that such a file will not be provided with the diagnostic 
and this mode is not recommended. The format will begin 

only on a ‘'YES*' answer. Otherwise the following message 

will be printed and the program will abort. 


YOU CANNOT PROCEED WITHOUT SUCH A FILE. 
RESTART PROGRAM AND SELECT TO REFORMAT OR RECONSTRUCT DISK. 


SEQ 0008 


ee 
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2.6 MANUAL INTERVENTION QUESTIONS 


Once the progres is started, the date will be asked for in the format 
used by the XXDP+ system. 


ENTER DATE AS DD-MMM-YY (A) 1-JAN-70 : 


The default is provided so the user need not supply the date. 
The date question will nornely oer be asked one time. If an 
improper answer is typed, “INPUT OR’ is printed and the ‘ 
ae te is asked again. A two or four digit year may be 

typed A four digit y2ar must be 1900 or tap ey (eg. 

14-APR=1982). If only two digits are typed, the year is : 
determined as follows: 

- If the number typed is 70 or greater, a 19 is pret ined. 
te 1-JAN-70 translates to year 1976 ond 25-DEC-99 
translates to year 1999. 


2. If the number typed is less than 70, a 20 is prefixed. Eg., 
1-APR=21 is translated to year 2021. 
| 


If RECONSTRUCT mode is selected, the followng question will be asked 
for each disk of be formatted before the format operation begins. 


oe NUMBER FOR UNIT xx UDA AT xxxxxx DRIVE xxx 


A decimal number in the range of 0 to 18446744073709551615 
must be entered (no default). 


If RESTORE mode is selected, the following question will be asked. 


NAME OF FILE Temein oyae fh ? SECTOR INFORMATION FOR 
DISK TO BE FORMATTED ( 


If the file named does not exist on the system load device, 
the program will abort back to the XXDP+ prompt after printing 
an error message. 


2.7 EXTENDED P-TABLE DIALOGUE 


When you answer the hardware questions, you are building entries in a 
table that describes the devices under test. The simplest wey to 
build this table is to answer all questions for each unit to be 
tested. If you have a multiplexed device such as a mass storage 
controller with several drives or a a communication device with several 
Lines, this becomes tedious since most of the answers are repetitious. 


Kk 1 
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Te illustrate a more efficient methou, suppose you are testing a 
fictional device, the XY11. Suppose this device consists of a control 
module with eight units (sub-devices) attached to it. These units are 
described 7 the octal numbers FB npn 6 7. There is one hardware 
parameter that can vary among units called the Q-factor. This 
Q-factor may be 0 or 1. Below is a simple way to build a table for 
one XY11 with eight units. 


# UNITS (D) ? 8&<CR> 


UNIT 1 
CSR ADDRESS (0) ?_ 160000<CR> 
SUB=DEVICE # (0) ?. O<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 
| SUB-DEVICE # (0) ?_ 1<CR> 
| Q-FACTOR (0) 1? O<CR> 


UNIT 3 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 2<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 4 
CSR ADDRESS (0) ?  160000<CR> 
SUB-DEVICE # (0) ? 3<CR> 
Q-FACTOR (9) 0 ? <CR> 


' 

| 

| UNIT 5 
CSR ADDRESS (0) ? 160000<<:R> 
SUB=DEVICE # (0) ? 4<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 6 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 5<CR> 
Q-FACTOR (0) 0? <CR> 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?  6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 8 
CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE # (0) ? 7<CR> 
Q-FACTOR (0) 1? <CR> 


Notice that the default value for the Q-factor changes when a | 
nea Sotans response is given. Be careful when specifying multiple 
units! 


As you can see from the above example, the hardware parameters do not 
vary etenificentiy from unit to unit. The procedure shown is not very 
efficient. 


ee a eee 
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The Runtime Services can take multiple unit specifications however. 
Let's build the same table using the multiple specification feature. 


# UNITS (D) ? 8<CR> 


UNIT 1 
CSR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE # (0) ?. 0,1<CR> 
Q-FACTOR (0) 0 ? 1,0<CR> 


UNIT 3 
CSR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE # (0) ?. 2=5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


UNIT 7 
CSR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE # (0) ?. 6,7<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


| 

As you can see in the above dialogue, the runtime services will build 

as a entries as it can with the information given in any one pass 

through the questions. In the first pass, two entries are built since 

two sub-devices and q-factors were specified. The Services assume 

that the CSR address is 160000 for both since it was spec ti tes only 

once. In the second pass, four entries were built. This is because 

four sub-devices were specified. The *’="" construct tells the Runtime 

Services to increment the data from the first number to the second. 

| In this case, sub-devices 2, 3, 4 and 5 were specified. (If the 

sub-device were specified by addresses, the increment would be by 2 

since addresses must be on an even boundary.) The CSR addresses and 

Q-factors for the four entries are assumed to be 160000 and 0 P 

respectively since aney were only specified once. The last two units 

are specified in the third pass. 

en whole process could have been accomplished in one pass as shown 
e low. 

| 

! 


# UNITS (D) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB=DEVICE # (0) ?_ 0=7<CR> 
Q-FACTOR (0) 0 ? 0,1,0,.,..1,1<CR> 


As you can see from this example, null replies (commas enclosing a 
null field) tell the Runtime Services to repeat the last reply. 


Mn a 
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2.8 QUICK START-UP PROCEDURE 


To start-up this program: 
1. Boot XXDP+ 


2. Give the date and answer the LSI and SOHZ (if there 
is a clock) questions 


3. Type *R ZUDEBO"’ 
4. Type ‘‘START’’ 
5. Answer the ‘CHANGE HW’’ question with ‘‘y’’ 
6. Answer all the hardware questions 
7. Answer the ‘‘CHANGE SW’’ question with ‘'N’’ 
When you follow this procedure you will be using only the defaults for 
flags and software parameters. These defaults are described in 
sections 2.3 and 2.5. 
Sample cf terminal dialogue to test two disks on one UDA-50: 
DR>STA 
CHANGE HW (L) ? Y 
# UNITS (D) ? 2 
UNIT 0 
UNIBUS ADDRESS OF UDA (0) 172150 ? 
VECTOR (0) 154 
BR LEVEL (D) 5 A, 
UNIBUS BURST RATE (D) 63 ? 
DRIVE NUMBER (D) 0 ? 0,1 


CHANGE SW (L) ?N 
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ENTER DATE AS DD-MMM-YY (A) 1-JAN-70 ? 14-APR-82 


UNIT 0 UDA AT 172150 DRIVE 0 RUNTIME 0:12:20 
Format completed 
2 Revectored LENS 
2 Primary revectored LBNS 
0 Secondary/tertiary revectored LBNS 
0 Bad blocks in the RCT area due to data errors 
0 Bad blocks in the DBN area due to data errors 
0 Bad blocks in the XBN area due to data errors 
2 Blocks rors on the check pass 
FCT used successfully 
UNIT 1 UDA AT 172150" DRIVE 1 RUNTIME 0:25:18 
Format completed 
6 Revectored LBNS 
: Primary revectored LBNS 
Be re et tg a ay revectored LENS 
0 Bad blocks in the RCT area due to data errors 
0 Bad blocks in the DBN area due to data errors 
0 Bad blocks in the XBN area due to data errors 
4 Blocks retried on the check pass 
FCT used successfully 
CZUDE EOP 1 
am 0 CUMULATIVE ERRORS 
> 


Sample of terminal dialogue going through software questions. 
Only one disk is being tested. 


DR>STA 

CHANGE HW (L) ? N 

CHANGE SW (L) ? Y 

REFORMAT USING EXISTING BAD SECTOR INFORMATION (L) Y ? Y 
ENTER DATA AS DD-MMM-YY (A) 1-JAN-70 ? 14-APR-82 


RUNTIME 0:12:45 
Format completed 
2 Revectored LBNS 
2 Primary revectored LBNS 
0 yt ig a ay revectored LBNS 
0 Ead blocks in the RCT area due to data errors 
0 Bad blocks in the DBN area due to data errors 
0 Bad blocks in the XBN area due to data errors 
Blocks retried on the check pass 
FCT used , successful ly 
CZUDE EOP 
‘. 0 CUMULATIVE ERRORS 
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3.0 ERROR INFORMATION 


| 


3.1 TYPES OF ERROR MESSAGES 


There are three levels of error messages that may be issued by a 
diagnostic: general, basic and extended. General error_messages are 
always printed unless the "IER'' flag is set (section 2.3). The general 
error message is of the form: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC:XXXXXX 
error message 


where: NAME = diagnostic name 
TYPE = error type (SYS FTL ERR, DEV FTL ERR) 
NUMBER = error number 
UNIT NUMBER = 0 - N (N is Last unit in PTABLE) 
TST NUMBER = test and subtest where error occurred 
PC:XXXXXX = address of error message call 


System fatal errors (SYS FTL ERR) are used to report errors that are 
fatal to the entire diagnostic program. The diagnostic stops and the 
Runtime Services prompt is printed. 


Device fatal errors (DVC FTL ERR) are used to report errors that are 
fatal to the device (may be either a UDA-50 or disk drive). Testing 
stops on that device for the remainder of the current test. 


Basic error messages are messages that contain some additional 
information about the error. These are always printed unless the 
"IER" or “IBE’’ flags are set (section 2.3). These messages are 
printed after the associated general message. 


Extended error messages contain supplementary error information such 
as register contents or good/bad data. These are always printed 
unless the ‘IER’, “‘IBE'’ or “‘IXE riage are set (section 2.3). These 
messages are printed after the associated general error message and 
any associated basic error messages. 


The general and basic error mennaes from this diagnostic are always 
one line each. The basic message defines what program detected the 
error, the UDA-50 being used and the time of the error: 


HOST PROGRAM UDA AT xxxxxx RUNTIME hhh:mm:ss 
The host program (PDP-11) detected the error. UDA AT xxxxx 


identifies the address of the UDA-50 being tested. It may be 
omitted if the error is not specific to one UDA-50. 
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Sample error message: 


CPURe DVC FTL ERR aya ON UNIT 00 TST go} SUB 000 PC: xxxxxx - peneren message 
HOST PROGRAM UDA AT 172150 RUNTIME 0:00:12 - basic message 
UDA RESIDENT piAGNOstICs DETECTED FAILURE \ 
UDASA CONTAINS 104041 ‘= extended message 
REPLACE UDA MODULE M7161 / 


The DUP program may also print error messages. ye are printed 
ey as presented by the DUP program and cannot be suppressed by 
any flags. 


3.2 SPECIFIC ERROR MESSAGES 


3.2.1 HOST PROGRAM ERROR MESSAGES 


Following is a list of the error messages that em be printed by the 
eens program. In the list, some of the numbers that may vary 
with execution or program version are shown as ‘‘xxx'’. These include 
program counters and runtime. Other numbers, such as unit number, 
drive number, UDA-50 address and data in registers are filled with 
sample numbers. Additional information about the error may follow the 
error message. 


00001 Cruse SYS FTL ERR 00001 ON UNIT 00 TST = Sass 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x 
I DON'T LIKE THE ANSWERS YOU GAVE TO THE * HARDWARE QUESTIONS 
UDA HAS MORE THAN ONE VECTOR, BR LEVEL OR SURST RATE 


When the hardware questions were answered, two units were 
selected with the same UNIBUS address but with a different 
vector, BR level or burst rate. A single UDA-50 can have only 
one vector, BR level or burst rate. The program is aborted and 
returns to the Runtime Services prompt so that you can change 
the hardware questions. 


00002 CZUDE SYS FTL ERR 00002 ON UNIT 00 TST ave ae 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x: 
I DON’T LIKE THE ANSWERS YOU GAVE TO THE HARDWARE QUESTIONS 
TWO UNITS SELECT THE SAME DRIVE 


The hardware questions for two units were exactly the same. 


The program is aborted and returns to the Runtime Services 
prompt so that you can change the hardware questions. 


eee ee oo 
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00903 


00004 


00008 


00009 


00010 


B 


CZUDE SYS FTL ERR 00003 ON UNIT 00 TST 001 SUB 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x:xx:xx 

I DON'T LIKE THE ANSWERS YOU GAVE TO THE HARDWARE QUESTIONS 
MORE THAN EIGHT DRIVES SELECTED ON THIS UDA 


Up to four gn tte ne. disk drives can be attached to a UDA-50 at 
one time. A physical disk drive may be from one to four 
logical disk drives. Each logical disk drive is considered one 
unit to the diagnostic program. Even though more than eight 
logical disk drives can be attached to one UDA-50, the UDA-50 
only supports eight. The program is aborted and returns to the 
oe Services prompt so that you can change the hardware 
questions. 


CZUDE SYS FTL ERR 00004 ON UNIT 00 TST 001 SUB 000 PC: xxxxxx 
HOST PROGRAM RUNTIME x:xx:xx 

NOT ENOUGH ROOM IN MEMORY TO TEST THE UNITS SELECTED 

PLEASE START PROGRAM OVER AND TEST FEWER UNITS AT A TIME 


This program does not Limit the number of units that can 
be teste by specifying a maximum number. What Limits 
the number is the amount of me gt used to store data 

on each unit. You have exceeded the number of units 

that are testable at one time. Start program over and 
select fewer units. 


CZUDE SYS FTL ERR 00008 ON UNIT 00 TST 001 SUB 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x:xx:xx 

I DON'T LIKE THE ANSWERS YOU GAVE TO THE HARDWARE QUESTIONS 
TWO UDA'S USE THE SAME VECTOR 


The hardware questions for two units specified different 
UDA-50 Unibus addresses but identical vector addresses. The 
program is aborted and returns to the Runtime Services prompt 
so that you can change the hardware questions. 


CZUDE DVC FTL ERR 00009 ON UNIT 00 TST 001 SUB 000 PC: xxxxxx 
HOST PROGRAM RUNTIME x:xx:xx 

ONLY ONE DISK CAN BE SELECTED IN HW QUESTIONS IN RESTORE MODE. 
PLEASE START PROGRAM OVER AND SELECT ONLY ONE DISK. 


If the operator chooses to run the formatter in RESTORE 

mode, then ony one disk can be selected in the hardware 
questions. RESTORE mode is run in this way because 

a file containing the bad block information ‘is used and 

that information matches only one drive. 


CZUDE DVC FTL ERR 00010 ON UNIT 00 TST 001 SUB 000 PC: xxxxxx 
HOST PROGRAM RUNTIME x:xx:xx 
THIS PROGRAM CAN ONLY REFORMAT A DISK IN UNATTENDED MODE 


This program needs to ask questions of the operator. It 
refuses to run in RECONSTRUCT and RESTORE modes because the 
questions obtain data that is absolutely necessary. REFORMAT 
mode is allowed to run because only a date is needed. The 
default date of 1-JAN-70 is used. 


SEQ 0016 
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00020 CZUDE DVC FTL ERR 00020 ON UNIT 00 TST 001 SUB 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x:xx:xx 
MEMORY ERROR TRYING TO READ UDA REGISTERS 
inp — SELECTION SWITCHES ON UDA MODULE M7161 


OR UNIBUS 
OR REPLACE UDA MODULE M7161 


A non-existant memory error occurred when the host program 
tried to access the UDAIP and UDASA registers. The UD 

is at another address (check the UNIBUS selection switches) 
or module M7161 is broken or the UNIBUS is broken. 


00021 CZUDE DVC FTL ERR 00021 ON UNIT 00 TST 001 SUB 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x:xx:xx 
UDA RESIDENT DIAGNOSTICS DETECTED FAILURE 
UDASA CONTAINS 105154 
REPLACE UDA MODULE M7162 


| 

| 
The UDA Resident diagnostic detected a failure. The 
error is displayed in the UDASA. Here are the possible 
error values and their meaning: 


05152 - D proc SDI error 
05153 = D proc write mode wrap SERDES error 
05154 = D proc read mode SERDES, RSGEN, and ECC error 
06040 = U proc ALU error 
06041 = U proc Control Register error 

6042 = U proc DFAIL/ROM parity error/Board #1 test count is wrong 
proc Constant ROM error with D proc running SDI test 
06055 = Unexpectant trap found, aborted diagnostic 
U proc ROM error 
06072 = U proc ROM parity error 
06200 - Step 1 data error (MSB not set) 
07103 - U proc RAM per ity error 

7107 = U proc RAM buffer error 


a 
c 


0 
07115 = Board #2 test count was wrong 
12300 = Step 2 error 
22240 = NPR error 

22300 = Step 3 error 

142300 = Step 4 error 


Replace the board specified. 7161 is the Unibus interface board. 
M7162 is the SDI interface board. 
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00022 


00023 


00024 


CZUDE DVC FTL ERR aPo0es oF UNIT 00 ™ = 8 000 PC: xxxxxx 
HOST PROGRAM UDA A 70995150 RUNTIM 
STEP BIT DID NOT st BM sc: REGISTER * DURING INITIALIZATION 


U 
REPLACE UDA MOD ~ M7161 


The UDA did not respond as expected during the 
initialization sequence which communicates were data 
in the UDASA register. A normal response from the UDA 
ey rn either a STEP bit or an ERROR bit defined as 
ollows 

Bit 15 She ses 4 Error bit 


bit 11 (004000) Step 1 pi 
The expected step bit nor the error bit set within the 
expected time. 


CZUDE DVC FTL ERR 00023 ON UNIT 00 TST ee ~— 000 PC: xxxxxx 

HOST PROGRAM UDA AT 172150 RUNTIME x 
gt: zoe NOT CLEAR RING STRUCTURE IN HOST "MEMORY ie INITIALIZATION 
6 WORDS WERE TO BE CLEARED STARTING AT ADDRESS 040644 
FIRST SEVERAL WORDS NOT CLEARED (UP TO 6): 
ADDRE CONTENTS 


SS 
0644 000010 
040650 000010 
2 000010 


04065 
REPLACE UDA MODULE M7161 


The UDA is to clear the ring structure (a communications area 
used by the UDA to talk to the host) in host memory before 
Step 4 of initialization. If the UDA diagnostics did not 
clear memory and did not flag an error, then error message 
00023 is dispie ed. The contents of each word in memory 

is set to 17 before the test. Failure of the UDA 

to clear each word seeseotes a fault in the address 

interface to the Uni 


CZUDE oat FTL ERR 00024 ON UNIT 00 TST how Bs 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x 
UDASA PRECISTER DID NOT GO TO ZERO AFTER STEP 3 WRITE OF INITIALIZATION 
PURGE/POLE DIAGNOSTICS WERE REGUESTED 

UDASA CONTENTS 004400 


For better grec ing, the host can test the PURGE and POLE 
mechanism of the UDA. To do so the host sets bit15 of the 
step 3 data and sends the data to the UDA. The UDA must 
go to zero and wait for the purge and pole. If the UDA 
never went to zero, then error message 00024 is displayed. 
= may have a bad M7161 module or the UNIBUS may 

e broken. 


SEQ 0018 
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00025 


00030 


00031 


CZUDE DVC FTL ERR 00025 ON UNIT 00 TST oon hs 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x 
UDA DID NOT RETURN CORRECT DATA IN UDASA- REGISTER DURING INITIALIZATION 
UDASA EXPECTED 004400 
UDASA CONTAINS 004000 
REPLACE UDA MODULE M7161 


For each step of initialization, specific data is expected 
to be displayed in the UDASA. If the UDASA does not match 
the expected data, then error message 00025 is displayed. 
Replace UDA module M7161. 


CZUDE DVC FTL ERR 00030 ON UNIT 00 TST — me 000 PC: xxxxxx 

HOST PROGRAM UDA AT 172150 RUNTIME x 

UDA REPORTED FATAL ERROR IN UDASA REGISTER “WHILE RUNNING DM PROGRAM 
UDASA CONTAINS 100004 


A message from the UDA firmware reports an unexpected 
failure. An error code is presented in the UDASA. 
Here is a List of the codes and their meanings: 


004400 - UDA has been ee cE. either a bus init or by 
writing into the UDAI 

100001 = UNIBUS envelope/packet read error (parity or timeout) 

100002 = UNIBUS envelone/pechet write error (parity or timeout) 

100003 = UDA ROM and RAM parity error 

100004 = UDA RAM parity error 

100005 = UDA ROM parity error 

100006 = UNIBUS ring read error 

100007 - UNIBUS ring write error 

100010 = UNIBUS interrupt master failure 


100011 = Host access timeout error 

100012 = Host exceeded credit Limit 

100013 = UDA SDI hardware fatal error 

100014 = DM XFC fatal error ‘ 

100015 = Hardware timeout of instruction loop 
100016 = Invalid virtual circuit identifier 
100017 = Interrupt write error on UNIBU 


CZUDE DVC FTL ERR o09s) ON UNIT 00 TST a+. Fam 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x 

NO INTERRUPT RECEIVED FROM DM PROGRAM FOR 3 “WINUTES 

ASSUME PROGRAM IS HUNG 


ALL DM programs are required to communicate with the 
host program; so as to assure the host were that 

the DM peeres is not hung up or in an endless loop. 
If the DM program has not done so, the host program 

assumes the DM is hung and this message appears. 


‘iE -_—— —--— --- SS 
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| 00032 CZUDE abve FTL ERR 00032 ON UNIT 00 TST 001 (Su 000 PC: xxxxxx 
ROGRAM UDA AT 172150 RUNTIME x 
RESSAGE BUFFER RECEIVED | FROM DM PROGRAM WITH UNKNOWN REQUEST NUMBER 
000001 000002 900005 000004 000005 000006 000007 
900008 000009 000010 9 00001 17 900012 000013 000074 


0017 001 020 00002 
000022 000023 000024 000025 000026 000027 000028 
000029 000030 000031 000032 000033 000034 000035 


The DM ae and the host program communicate with 
each other using — Each packet must have a 
request number set up by the DM program and interpreted 
by the host program. This request number is not a 

known request number. The problem may be the UNIBUS 

or either one of the UDA modules or a corrupted DM 
program. Word i contains the DM request number, and 
word 2 typically contains the drive number. The rest 
of the buffer contains information specific to a 

DM request. The numbers in the example show 

the order in which words are displayed. 


00033 CZUDE DvC FTL ERR 00033 ON UNIT 00 TST se: — 000 PC: xxxxxx 
00034 HOST PROGRAM UDA AT 172150 RUNTIME x 
RESPONSE PACKET FROM UDA DOES NOT CONTAIN “EXPECTED DATA 
oie ee RETURNED ERROR STATUS OR PACKET WAS NOT RECEIVED CORRECTLY 


PACKET SENT RESPONSE PACKET RECEIVED 
000000 000020 000000 000020 
7 000 000000 000000 000000 
‘28 0 000002 000000 000202 
“i 000000 014336 000000 014336 
00000 034674 000000 0 
000000 000000 000000 000000 
000000 000000 0000 
000000 051232 000000 051232 
000000 000000 000000 000000 
000000 000000 000000 000000 
000000 000000 000000 000000 
000000 000000 000000 000000 


The host program inspected the response packet which was 
given by to UDA. The response packet may have teen in 
error with one of the following points: 


1) The end code was not as expected. 

2) The status code showed an error occurred with the 
last command. 

3) The command reference numbers (the first word) did 
not match. 


If 1 or 3 occurred, there may have been a transmission 
problem between the UDA and the host program. If 2 occurred, 
check the error code in the MSCP specification for further 
information. The packets are displayed two jopne words 

per line, low order word and byte to the ri gn 

(corresponding to the MSCP long-word entity 


SEQ 0020 
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00036 


00037 


00100 


00101 


nermet ' ; : 
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CZUDE DVC FTL ae P0038 Oe ON UNIT 00 TST 001 SUB 000 PC: xxxxxx 
HOST PROGRAM 172150 RUNTIME x:xx:xx 

NO INTERRUPT RECEIVED FROM UDA FOR 30 SECONDS 

WHILE LOADING DM PROGRAM 


After a DM program has been sent to the UDA, the host 
program expects an interrupt within 30 seconds. The 
interrupt is used to assure the host program that the 
DM program is sane. If no interrupt occurred, then 
error messa : 00036 is displayed and the DM program is 
assumed to be hung. 


CZUDE DVC FTL ERR 00037 ON UNIT 00 = a — 000 PC: xxxxxx 

HOST PROGRAM UDA AT 172150 RUNTIME 

UDA REPORTED FATAL ERROR IN UDASA REGISTER “WHILE LOADING DM PROGRAM 
UDASA CONTAINS 100004 

REPLACE UDA MODULE M7161 


While loading the DM program to the UDA, the UDASA 
became non-zero. When this occurs, it Signifies that 
the UDA microcode has run across a fatal error. The 
displayed value_is in octal. Check the error code with 
the List in 00030. 


Cruse DVC FTL ERR 00100 ON UNIT 00 TST 001 SUB 000 PC: xxxxxx 
OST PROGRAM UDA AT 172150 RUNTIME x:xx:xx 
DUP PROGRAM ASKED UNEXPECTED QUESTION (25) 


The DUP program sends a value that corresponds to 
a specific question or message. If this value does not 
fit into the range of questions, then this error appears. 


CZUDE DVC FTL ERR 00101 ON UNIT 00 TST fan = 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x 
DUP PROGRAM REJECTED ANSWER TO DATE oR SERIAL NUMBER QUESTION 


After the operator inputs the date/serial number, the 
DUP program will ask the host program for them. If for 
some reason the date/serial number was unacceptable to 
the DUP program, this error message will appear. Retry 
the program and if this error appears again, get out 

of the diagnostic runtime services and back to the 
XXDP+ prompt and reload the program. 


SEG 0021 


— 
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3.2.2 DUP PROGRAM ERROR MESSAGES 


Error messages returned by the UDA formatter are as follows: 
GET STATUS failure 
This could be caused by a number of reasons. Examples: the 


RUN/STOP switch is out, the WRITE PROTECT switch is in, or the 
DIAGNOSTIC REQUEST bit is set by the drive. 


SDI send error 


An attempt to send an SDI command failed. The signal 
RECEIVER READY was not asserted. 


Unsuccessful SDI command 


The response from an SDI command was unsuccessful and all commands 
should be successful for the formatter to work. There may be a 
cable problem, drive receiver problem or UDA transmitter problem. 


SDI receive error 


This message is presented for several reasons. The drive timed out, 

the first word from the drive was not a start frame, there was a framing 
error on the SDI level 0 read (cable/receiver/transmitter problem), 
checksum error, or the buffer size given by the formatter wasn't large 
— h for the UDA. Again, there may be a cable/receiver/transmitter 
prooiem. 


UNIBUS read error 
This is caused by one of two problems. While trying to read an overlay 
into the UDA buffer memory, the formatter came across a nonexistent memory 


error. Or, there was a failure while downline loading the bad block 
6 + td a There may be something wrong with the UNIBUS or the UDA module 


s a“ 
Ce 


Formatter initialization error 
For this error to occur, the UDA must be processing the DM code improperly. 


Nonexistent unit number 
The desired disk drive wasn't attached to the UDA. 


SEQ 0022 
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| DEN/XBN format error (drive FORMAT command failed) 


ALL attempts and retries to format a track failed. There may have been 
a timeout of drive signals, the drive dropped the READ/WRITE READY 
ep sf the format operation or the drive clock timed out (which 
indicates cable/transmitter/receiver failures). 


There must at least two good copies of every biock in the FCT. For 


this error to occur, the media is badly corrupted or the read/write 
logic is failing. 

SEEK error 
After a seek command completed successfully, the READ/WRITE READY 
signal was never set or the ATTENTION signal was Set. 

RCT does not have enough good copies of each block 


There must be at least two good copies of every block in the RCT. For 


this error to occur, the media is badly corrupted or the read/write 


logic is failing. 

LBN format error (drive FORMAT command failed) 
ALL attempts and retries to format a track failed. There may have been 
a timeout of drive signals, the dréve dropped the READ/WRITE READY | 
signal during the format operation or the drive clock timed out (which 
indicates cable/transmitter/receiver failures). 

FCT write error 


A particular block failed to be written into every copy of the FCT. 


| 
FCT does not have enough good copies of each block 
There is either terribly bad media or a write logic failure. 


RCT read error 
The formatter could not read at least one good copy of a particular 
block in the RCT area. 

RCT write error 


A particular block failed to be written into every copy of the RCT. 
There is either terribly bad media or a write logic failure. 


SEQ 0023 
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RCT full 
There were so many dad biuc's on the media that the RCT area was 
filled and could no: hold any more. There could be read/write 
logic failure or bad cable connection. 
FCT read error 
The formatter could not read at least one good copy of a particular 
block in the FCT area. 
FCT downline-load error 
The formatter was ted to believe that a bad block information file 
was larger than it really was. There may be a UNIBUS or M7161 problem. 
Drive init timeout 
After the drive was inited, the RECEIVER READY signal never asserted. 


Illegal response to start-up question 
An overflow occurred when the serial number went over 64 bits. 


An example of how the errors are presented is below: 


RUNTIME 0:00:18 
Nonexistant unit number 


SEQ 0024 
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4.9 PERFORMANCE AND PROGRESS REPORTS 





There is no statistical report that can be printed using the 
Diagnostic Runtime Services PRINT command. 


The DUP program issues the following messages upon normal 
completion: 


Format completed 


n Primary revectored LBNS 
Where n is the number of LBNs in message #2 which were primary 
revectors. 

n Secondary/teritary revectored LBNS 
Where n is the number of the LBNs in message #2 which were 
secondary or tertiary revectors. 

n Bad blocks in the RCT area due to data errors 
Where n is the number of blocks in the total RCT area which 
were bad. 

n Bad blocks in the DBN area due to data errors 
Where n is the number of blocks in the total DBN area which 
were bad. 

n Bad blocks in the XBN area due to data errors 
Where n is the number of blocks in the total XBN area which 
were bad. 

n Blocks retried on the check pass 


Where n is the number of blocks which had an error on the first 


| 

n Revectored LBNS 

Where n is the number of LBNs revectored in the user data area. 
read attempt after formatting. 


SEQ 0025 
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FCT used successfully or 
FCT was not used 


pene rp) Phen the answers to the software questions and the 
availabi ty of the bad sector information (FCT), one of these 
messages will be printed. 


An example of how the messages are presented is below. 


RUNTIME 0:24:57 

Format completed 
5 Revectored LBNS 
5 Primary revectored LBNS 
0 Secondary/tertiary revectored LBNS 
0 Bad blocks in the RCT area due to data errors 
0 Bad blocks in the DBN area due to data errors 
0 Bad blocks in the XBN area due to data errors 
5 Blocks retried on the check pass 

FCT was not used 


5.0 TEST SUMMARIES 


There is only one test in this program = Test #1. Its only purpose is 
to load and run the format program in a UDA-50. 


SEQ 0076 
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| PROGRAM HEA 
| RI .SBTTL PROGRAM HEADER 
| 26 002000 | __ BGNMOD 
3° 
| 58 : THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
| 29 : THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
31 : 
32 002000 POINTER BGNSW, BGNSFT, BGNSETUP 
34 002000 HEADER CZUDE.B.P.0,1.PRIO7 FIELD SERVICE 
002000 
002000  —-103 
5001 132 
005002 ~=—s«:125 
003008 «104 
5004 «10 
002008 000 
3006 «000 
003007 ~—s- 000 
5010 
002010 ~—«-102 
002011 
002011 120 
002012 
002012 000001 
002014 
5014 000000 
002016 
002016 021064 
002020 
002020 021252 
002022 
002022 002130 
002024 
003024 002144 
002026 
002026 000124" 
002030 
002030 000000 
002032 
002032 000000 
002034 
002034 000001 
002036 
002036 000000 
002040 
002040 002124 
002042 
002042 000340 
002044 
002044 000000 
002046 
5046 000000 
002050 
002050 ~—«- 003 
002051 003 





LSNAME : : 


LSREV:: 

LSDEPO:: 
LSUNIT:: 
LSTIML:: 
LSHPCP:: 
LSSPCP:: 
LSHPT?:: 
LSSPTP:: 
LSLADP: : 
LSSTA:: 


LS$CO:: 


LSDTYP:: 
LSAPT:: 

LSDTP:: 

LSPRIO:: 
LSENVI:: 
LSEXP1:: 
LSMREV:: 


«WORD 
- WORD 


«WORD 


-BYTE 
-BYTE 


/P/ 

TSPTHV 

0 

LSHARD 
LSSOFT 
L$HW 

L$SwW 
LSLAST 

0 

0 

1 

0 
LSDISPATCH 
PR1IO7 

0 

0 
ees 


SEQ 0027 
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| PROGRAM HEA 

002052 LSEF:: 

| 002052 000000 «WORD 0 
002054 000000 «WORD O 
002056 LSSPC:: 
002056 000000 «WORD 0 
002060 LSDEVP:: 
002060 003442 «WORD LS$DVTYP 
igs: LSREPP:: 
002 000000 «WORD 0 
002064 LSEXP4:: 
002064 000000 eWORD O 
002066 LSEXPS:: 
002066 000000 «WORD 0 
002070 LSAUT:: 
002070 000000 eWORD 0 
002072 LS$DUT:: 
002072 000000 «WORD 0 
002074 LSLUN:: 
002074 000000 «WORD 0 
002076 LSDESP:: 
002076 003464 -WORD LSDESC 
002100 LSLOAD:: 
002100 104035 EMT ESLOAD 
002102 LSETP:: 
002102 000000 -WORD 0 
002104 LSICP:: 
002104 017036 -WORD LSINIT 
002106 LSCCP:: 
002106 020454 -WORD LSCLEAN 
002110 LSACP:: 
002110 020452 «WORD LS$AUTO 
002112 LSPRT:: 
002112 017030 -WORD LSPROT 
002114 LSTEST:: 
002114 000000 -WORD 0 
002116 LSDLY:: 
002116 000000 «WORD 0 
002120 LSHIME:: 

002120 000000 -WORD 0 


SER CS a je OR a es 3 
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| 
| } .SBTTL DISPATCH TABLE 
3 p++ 
4 : THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
| 2 : IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
_ 3 
9 002122 DISPATCH 1 
002122 000001 .~ WORD 
00212 LSDISPATCH:: 
002124 020462 eWORD T1 


i a — a ee 
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} .SBTTL DEFAULT HARDWARE P-TABLE 
3 * 
4 THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
5 : THE TEST=DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
6 : 1S IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES, 
‘ : AND IS USED AS A “‘TEMPLATE’’ FOR BUILDING THE P-TABLES. 
9 ° 
062130 LSHW:: 
" 002130 DFPTBL:: 
12 002130 172150 -WORD 172150 ; UNIBUS ADDRESS 
13 002132 000154 -WORD 154 ; VECTOR ADDRESS 
14 002134 000005 «WORD 5. ; BR LEVEL 
15 002136 000077 -WORD 63. ; UNIBUS BURST RATE 
16 002140 000000 -WORD 0. ; LOGICAL DRIVE NUMBER 
17 002142 ENDHW 
002142 110000: 


| 
| 
| 
10 002126 BGNHW DFPTBL 
002126 000005 WORD 
| 
| 


ee 


SEQ 0030 


L10000-L $HW/2 


(a ee 


3 
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| SOFTWARE P-TABLE 


SCOOONOUE wh 


1 


38 


000001 


000007 


~SBTTL SOFTWARE P-TABLE 


+ 
THE SOFTWARE TABLE CONTAINS VARIOUS DATA USED BY THE 
PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE 
5 — TIME AND MAY BE VARIED BY THE OPERATOR 


Sete Ge Ge Ge 
+ 


BGNSW SFPTBL 
WORD 
L$SwW:: 
SFPTBL:: 
sOFFSET USE 
-WORD 7 3 0. YES/NO ANSWERS 
ENDSW 
L10001: 
ENDMOD 


SEQ 0031 


L10001-L$Sw/2 


ee -—- -——-- — - Ce ee 


6 3 
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| GLOBAL EQUATES SECTION 


002146 


SOOONOUESWwN— 


1 


002146 





-SBTTL GLOBAL EQUATES SECTION 


BGNMOD 


p++ 
; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 


; ARE USED IN MORE THAN ONE TEST. 


EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


EQUALS 

: BIT DIFINITIONS 
BIT15== 100000 
B1T14== 40000 
B1T13== 20000 
BIT12== 10000 
BIT11== 4000 
B1T10== 2000 
B1TO09== 1000 
B1TO8== 400 
B1T07== 200 

1T06== 100 
B1TOS== 40 
B1T04== 20 
B1T03== 10 
BITO2== 4 
BITO1== 2 
B1T00== 1 
BIT9== BITO9 
BIT8== BITO8 
BIT7== BIT07 
BIT6== BIT06 
BITS== BITOS 
BIT4== BITO4 
BIT3== BITO3 
BIT2== BITO2 
BITi== BI1TO1 
BITO== B1T00 

3: EVENT FLAG DEFINITIONS 
EF .START== 32. 
EF .RESTART== 31. 
EF.CONTINUE== 30. 
EF .NEW== 29. 
EF .PWR== 28. 


: PRIORITY LEVEL DEFINITIONS 


PRIO7== 340 
PRI06== 300 
PRIO5== 240 
PRI04== 200 


; START COMMAND WAS ISSUED 

; RESTART COMMAND WAS ISSUED 
CONTINUE COMMAND WAS ISSUED 

; A NEW PASS HAS BEEN STARTED 

; A POWER-FAIL/POWER-UP OCCURRED 


SEQ 0032 








i ee —— 


---— + 


se 
| CZUDEBO UDA=50 DISK FORMATTER MACRO V04.00 14-APR-82 16:50:39 PAGE 31-1 SEQ 0033 
GLOBAL EQUATES SECTION 


| 
| 
000140 PRIO3== 140 
000100 PRIO2== 100 
000040 PRIO1== 40 
| 000000 PRIOO== 0 
{ sOPERATOR FLAG BITS 
| 004 EVL== 
j 00010 LOT== 10 
000020 ADR== 20 
00040 IDU== 
00100 ISR== 100 
000200 UAM== 200 
000400 BOE== 400 
001000 PNT== 1000 
002000 PRI== 2000 
004000 IXE== 4000 
10000 IBE== 10000 
020000 IER== 20000 
040000 LOE== 40000 
" 100000 HOE== 100000 
12 000015 CR= 15 sVALUE TO PASS TO PRINT MACRO TO END LINE 





r- 
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| SOBA EQUATES SECTION 


MACRO DEFINITIONS FOR GLOBAL EQUATES 
THESE MACROS ARE USED TO DEFINE INDEXES INTO A TABLE 
[CALLING SEQUENCE MUST BE 


1 
2 
3 
4 
5 
; 
8 : ITEM NAME BYTES 
9 3 ITEM NAME BYTES 
10 ; ITEM NAME BYTES 

| ) : E SIZE 

| Py 
13 3; TABLE DEFINES THAT A TABLE IS a. +! TO BE DEFINED AND END TERMINATES THE DEFINITION. 
14 ZANY NUMBER OF ITEM LINES CAN APPEAR. NAME IS THE NAME OF THE SYMBOL BEING EQUATED TO 
15 THE INDEX. THE INDEX ALWAYS STARTS AT ZERO. BYTES SPECIFIES THE SIZE OF THE VALUE TO BE 
16 STORED AT THAT INDEX IN BYTES. THE SIZE ARGUMENT TO THE END STATEMENT IS OPTIONAL, IT 
17 SBE EQUATED TO THE SIZE OF THE TABLE IN BYTES. THE SYMBOL TINDEX IS USED TO KEEP TRACK 
+ 3 OF THE INDEX VALUE AND WILL BE EQUAL TO THE SIZE OF THE TABLE AFTER THE END STATEMENT. 
20 eMACRO TABLE 
21 TINDEX=0 
22 . 
23 
25 TINDEX 
26 TINDEX2TINDEX*BYTES 
$ -ENDM 
29 -MACRO END SIZE 
30 -IF NB SIZE 
31 SIZE= WTINDEX 
32 -ENDC 
35 -ENDM 


ra) -MACRO Sere take BYTES 
i 





oe Ce Ce Se 


" C2UDEBO UDA=50 DISK FORMATTER MACRO V04. 
| GLOBAL EQUATES SECTION 


ag 
4 
| 5 004000 
6 010000 
7 020000 
8 0 
9 100000 
i 10 
11 
12 
13 003777 
14 
15 
16 
17 002000 
18 001000 
19 400 
20 
21 
22 
23 
24 000177 
25 000200 
26 003400 
27 034000 
28 0400 
29 100000 
30 
31 000400 
32 004000 
33 
34 
35 
36 000007 
37 000070 
38 
39 200 
40 003400 
41 
42 
43 
44 000001 
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sUDA BIT DEFINITIONS 
ZUDASA REGISTER UNIVERSAL READ BITS 


SA.S1= 004000 
SA.S2= 010000 
SA.S3= 020000 
040000 


Sars $4= 

SA.ERR= 100000 

sUDASA REGISTER ERROR STATUS BITS 
SA.ERC= 003777 

s;UDASA REGISTER STEP ONE READ BITS 


SA.NV= 002000 
SA.A2= 001000 
SA.DI= 000400 
3 000377 


sUDASA REGISTER STEP ONE WRITE BITS 
SA.VEC= 000177 


SA.STP= 100000 


SA.MS1= 000400 
SA.CM1= 004000 


ZUDASA REGISTER STEP TWO READ BITS 


SA.MSE= 000007 
SA.CME= 000070 
; 000100 


SA.STE= 000200 
SA.CTP= 003400 


ZSUDASA REGISTER STEP TWO WRITE BITS 
SA.PRG= 000001 
3 177776 


sERROR CODE 


sNON SETTABLE wr pgp VECTOR 
ADDRESS BU 


; ENHANC 
ALL BITS RESERVED 


z INTERRUPT VECTOR (DIVIDED BY 4) 
ZINTERRUPT ENABLE _— INITIALIZATION 
;MESSAGE RING LENGTH 

:COMMAND RING LENGTH 


WRAP BIT 
ZSTEP = MUST ALWAYS BE WRITTEN A ONE 


+s OF MESSAGE RING LENGTH 
LSB OF COMMAND RING LENGTH 


sMESSAGE RING LENGTH ECHO 
:COMMAND RING LENGTH ECHO 
;RESERVED 


zSTEP ECHO 
:CONTROLLER TYPE 


ENABLE VAX UNIBUS ADAPTER PURGE INTERRUPT 


LOW ORDER MESSAGE RING BYTE ADDRESS 


SEQ 0035 





eo 
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GLOBAL EQUATES SECTION 


sUDASA REGISTER STEP THREE READ BITS 


000177 SA.VCE= 000177 ; INTERRUPT VECTOR ECHO 

000200 SA.INE= 000200 INTERRUPT ENABLE ECHO 

000400 SA.NVE= 000400 :VECTOR NOT PROGRAMMABLE 
: 003000 sRESERVED 


| 
| 
| 
| 


sUDASA REGISTER STEP THREE WRITE BITS 


NO OONAUEWN $$ O ODNOUEWwh— 


1 . 077777 :HIGH ORDER MESSAGE RING BYTE ADDRESS 
100000 SA.TST= 100000 SPURGE POLE TEST ENABLE 

SUDASA REGISTER STEP FOUR READ BITS 

1 000377 SA.MCV= 000377 ZUDA MICROCODE VERSION 

; 003400 RESERVED 

: SUDASA REGISTER STEP FOUR WRITE BITS 

2 000001 SA.GO= 000001 :G0 BIT TO START UDA FIRMWARE 

2 000002 SA.LFC= 000002 TLAST FAILURE CODE REQUEST 

Z 000374 SA.BST= 000374 TBURST LEVEL 





| CZUDEBO UDA-5O DISK FORMATTER MACRO V04.00 14-APR=82 16:50:39 PAGE L3 SEQ 0037 
| GLOBAL EQUATES SECTION 


| } sCOMMAND/MESSAGE DESCRIPTOR BIT DEFINITIONS 
| 
3 100000 RG.OWN= 100000 iSET WHEN UDA OWNS RING 
| 4 040000 RG.FLG= 040000 [FLAG BIT 
6 OFFSETS INTO HOST COMMUNICATIONS AREA WITH ONE DESCRIPTOR TO EACH RING 
| f [AND TWO PACKET AND BUFFER AREAS. 
9 000004 HC.ISZ= 4. :SIZE OF INTERRUPT INDICATOR WORDS 
10 000004 HC.RSZ= 4. *SIZE OF RING IN BYTES 
11 000004 HC.E 2= 4. ‘SIZE OF ENVELOPE AHORDS BEFORE PACKET 
12 000060 HC.PSZ= 48. [SIZE OF COMMAND AND MESSAGE PACKETS 
13 000122 HC.BSZ= 82. [SIZE OF BUFFER 
15 000000 HC.INT= 0. Z INTERRUPT INDICATOR WORDS START 
16 000004 HC.MSG= HC. INT+HC.1SZ “MESSAGE RING START 
17 000006 HC.MCT= HC.MSG#2. SMESSAGE RING CONTROL WORD 
18 000010 HC.CMD= HC.MSG+HC.RSZ [COMMAND RING STAR 
19 00012 HC.CCT= HC.CMD+2. =COMMAND RING CONTROL WORDS 
20 000014 HC.MEV= HC.CMD+HC.RSZ MESSAGE ENVELOPE START 
21 000020 HC.MPK= HC.MEV+HC .ESZ [MESSAGE PACKET $ 
22 000100 HC.CEV= HC.MPK+HC .PSZ [COMMAND ENVELOPE Tt aat 
23 000104 HC.CPK= HC.CEV+HC.ESZ [COMMAND PACKET START 
24 000164 HC.BF1= HC.CPK+HC .PSZ ‘FIRST BUFFER 
35 000306 HC.BF2= HC.BF1+HC.BS2Z [SECOND BUFFER 
27 000430 HC.SIZ= HC.BF2+HC.BS2Z sTOTAL SIZE OF HOST COMM AREA 
29 ZVIRTUAL CIRCUIT IDENTIFIERS 
31 000000 MscP= 0 :MSCP CIRCUIT 
32 000001 LOG= 1 [LOG CIRCUIT 
33 177777 DIAG= -1 “DIAGNOSTIC CIRCUIT 


34 001000 DUP= 1000 [DIAGNOSTIC AND UTILITIES PROTOCOL 








_ CZUDEBO UDA=50 DISK FORMATTER MACRO V04.00 14-APR-82 16: 
GLOBAL EQUATES SECTION 


| 
1 ; 
2 $ HC. INT 
| 3 3 
j 4 : 
5 3 HC.MSG 
§ $ HC.MCT 
8 3 HC.CMD 
j 9 $ HC.CCT 
10 3 
11 3 HC.MEV 
12 ; HC ..MPK 
13 : 
14 : 
15 : 
16 3 
17 : 
18 : HC.CEV 
19 3 HC.CPK 
20 : 
21 : 
22 : 
23 : 
24 : 
25 g HC .BF1 
26 : 
27 : 
28 : 
29 : 
30 3 HC.BF2 
31 : 
32 3 
33 : 
34 é 
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$m Oe DHS SSS TODOS STE SGRWSEVeSet “Sh esaeonans i oamanae + 


INTERRUPT INDICATORS : 
eee See oe = — 
MESSAGE RING ‘ 
$¢eeeme mean acorseommoawzesae See SOD Eee ee ones Sea wana mer + 
‘ COMMAND RING : 
+ SE eEBeDeomos rows en se aaeese Swear a nana sen eeeaon ae + 
MESSAGE ENVELOPE : 
i ; 
i i 
i i 
$emmewwmw wm n meme een cee ee ewe ew ewe eww owe oennooooe + 
COMMAND ” ENVELOPE : 
i i 
i i 
i i 
$emmewwmnwwwee nooo eeoeeweceeeeoeeeeeoeencecococe + 
‘ BUFFER # 1 (RESPONSE TO DM PROGRAM) ‘ 
i i 
pmmmmmm www www we wee w eww eww ew en ewww wwe wooonn-- ---=¢ 
: BUFFER # 2 (REQUEST FROM DM PROGRAM) . 
i i 
$m m oa won monsoon e nana maw Se San Pere ree Sesame as $ 


4 BYTES 


4 BYTES 


4 BYTES 


52 BYTES 


52 BYTES 


82 BYTES 


82 BYTES 


SEQ 0038 


P< tt. he —— 
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| GLOBAL EQUATES SECTION 


} sCOMMAND PACKET OPCODES 
3 000001 OP.ABO= 1 yABORT COMMAND 
| i 20 OP.ACC= 20 ‘ACCESS COMMAND 
| 5 000010 “AVL= 10 ‘AVAILABLE COMMAND 
6 000021 “CCD= 21 * COMPARE CONTROLLER DATA COMMAND 
7 0040 -CMP= 40 :COMPARE HOST DATA COMMAND 
8 000022 OP.ERS= 22 ERAS 
9 000023 OP.FLU= 23 ;FLUSH COMMAND 
| 10 000002 OP.GCS= 2 :GET COMMAND STATUS COMMAND 
| 11 00003 .GUS= 3 ‘GET UNIT STATUS COMMAND 
12 000011 P.ONL= 11 [ONLINE COMMAND 
| 13 00041 “RD= 41 iRE 
14 000024 OP.RPL= 24 SREPLACE COMMAND 
15 00004 oP.scC= 4 :SET- CONTROLLER CHARACTERISTICS COMMAND 
16 000012 -SUC= 12 SSET UNIT CHARACTERISTICS COMMAND 
17 00042 “WR= 42 ‘WRITE COMMAND 
18 « 000030 OP.MRD= 30 SMAINTENANCE READ COMMAND 
19 000031 OP.MWR= 31 SMAINTENANCE | WRITE COMMAND 
20 000200 OP.END= 200 TEND PACKET FLAG 
2) 000007 OP.SEX= 7 SSERIOUS EXCEPTION END PACKET 
22 00 OP.AVA= 100 TAVAILABLE ATTENTION MESSAGE 
23 000101 OP.DUP= 101 ‘DUPLICATE UNIT NUMBER ATTENTION MESSAGE 
24 000102 OP.SHC= 102 ;SHADOW COPY COMPLETE ATTENION MESSAGE 
35 000103 OP.RLC= 103 *RESET COMMAND LIMIT ATTENTION MESSAGE 
27 00001 OP.GDS= 1 ;DUP GET DUST STATUS 
28 000002 OP.ESP= 2 ‘DUP EXECUTE SUPPLIED PROGRAM 
29 00000 OP.ELP= 3 ‘DUP EXECUTE LOCAL PROGRAM 
30 000004 oP. Sb= 4 ‘DUP SEND STUD DAT 
31 000005 OP.RSD= 5 [DUP RECEIVE STUD DATA 
33 ZNOTE: END PACKET OPCODES (ALSO CALLED ENDCODES) ARE FORMED BY ADDING THE END 
34 [PACKET FLAG TO THE COMMAND OPCODE. FOE EXAMPLE, A READ COMMAND s END PACKET 
35 “CONTAINS THE VALUE OP.RD+OP.END IN ITS OPCODE FIELD. THE INVALID COMMAND END 
36 SPACKET CONTAINS JUST THE END PACKET FLAG ( E., OP.END) IN ITS OPCODE FIELD. 
37 *THE SERIOUS EXCEPTION END PACKET CONTAINS THE SUM OF THE END PACKET FLAG 
38 [PLUS THE SERIOUS EXCEPTION OPCODE SHOWN ABOVE (1.E., OP.SEX*OP.END) IN ITS 
39 ;OPCODE FIELD. 
41 : COMMAND OPCODE BITS 3 THROUGH 5 INDICATE THE COMMAND CLASS, WHICH IS ENCODED 
43 : 000 IMMEDIATE COMMANDS 
4h + 001 SEQUENTIAL COMMANDS 
45 : 010 NON-SEQUENTIAL COMMANDS THAT DO NOT INCLUDE A BUFFER DESCRIPTOR 
46 * 100 NON=SEQUENTIAL COMMANDS THAT DO INCLUDE A BUFFER DESCRIPTOR 


SEQ 0039 


isa eel as Ga et ed: PUP & } 
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GLOBAL EQUATES SECTION 


ANS WN—OOONOuUsrwn— 


—S Dd db dd 3d dd 


™N 
ovoaon 


000001 


000200 


000001 


;COMMAND MODIFIERS 


MD.SWP= 000004 
MD.CWB= 000 
MD.PRI= 000001 


END PACKET FLAGS 


EF .BBR= 000200 


EF 0 
EF .LOG= 000040 
EF .SEX= 000020 


s CONTROLLER FLAGS 


CF.ATN= 000200 


CF.576= 000001 








sCLEA 
ZEXPR 

R 
; SUPP 


; SUPP 
; SUPP 
WRIT 
WRIT 
WRIT 
SPIN 

sFLUS 
:VOLA 
ZNEX 


—_— EXCEPTION 
oe MS as 
RESS CACHING trae cheese. 


RESS ERROR RECOVERY 

RESS SHADOWING 

E-BACK (NON-VOLATILE) 

E BACK (VOLATILE) 

J — SET ONE UNIT AT A TIME 


ms ENTIRE UNIT 
TILE ONLY 


XT UNIT 
ALLOW SELF ph oleee. 
ED OR 


E fcr 
WRITE-BACK DATA LOST 


sPRIMARY REPLACEMENT BLOCK 


3BAD 


{SER 


3 ENAB 
ENAB 
ENABLE 
ZENAB 


BLOCK REPORTED 
BLO 


OUS EXCEPTION 


LE ATTENTION MESSAGES 

1 MISCELLANEOUS ERROR LOG MESSAGES 
OTHER HOST’S ERROR LOG MESSAGES 

LE THIS HOST’S ERROR LOG MESSAGES 


HADOWIN 
306 BYTE SECTORS 


SEQ 0040 


ee ee ee ee. _ 


4 
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GLOBAL EQUATES SECTION 


| 1 ;UNIT FLAGS 
3 000001 UF .CMR= 000001 ; COMPARE es 
4 000002 UF .CMW= 000002 ARE WRITES 
5 100000 UF .RPL= 100000 tHOST INITIATED BAD BLOCK REPLACEMENT 
6 040000 UF .INA= 040000 s INACTIVE SHADOW SET UNIT 
7 004000 UF .SCH= 004000 * SUPPRESS CACHING (HIGH SPEED) 
8 002000 UF .SCL= 002000 s SUPPRESS CACHING (LOW SPEED) 
9 000100 UF .WBN= 000100 WRI TE=BACK (NON-VOLATILE) 
10 020000 UF .WwPH= 020000 ‘WRITE PROTECT (HARDWARE) 
11 001000 UF .WPS= 001000 “WRITE PROTECT (SOFTWARE OR VOLUME) 
\¢ 000004 UF .576= 000004 2576 BYTE SECTORS 
| 1 sCOMMAND PACKET OFFSETS 
16 2 GENERIC COMMAND PACKET OFFSETS: 
17 000000 P.CRF= 0. = COMMAND REFERENCE NUMBER 
18 00004 P.UNIT= 4. IT NUMBER 
19 000010 P.OPCD= 8. SOPCODE 
20 000012 P.MOD= 10. SMODIF IERS 
21 000014 P.BCNT= 12. ‘BYTE COUNT 
22 000020 P.BUFF= 16. BUFFER DESCRIPTOR 
23 000020 P.UADR= 16. SUNIBUS ADDRESS OF BUFFER DESCRIPTOR 
$3 34 P.LAN= 28. ;LOGICAL BLOCK NUMBER 
26 : ABORT AND GET COMMAND STATUS COMMAND PACKET OFFSETS: 
$e 000014 P.OTRF= 12. ZOUTSTANDING REFERENCE NUMBER 
29 : ONLINE AND SET UNIT ener: ae COMMAND PACKET OFFSETS: 
30 0016 P.UNFL= 14. sUNIT FLA 
31 000020 P.HSTI= 16. sHOST spent te ses / RESERVED 
32 000034 P.ELGF= 28. s ERROR LOG FLAGS 
33 000040 P.SHUN= 32. : SHADOW UNIT" 
34 0004 P.CPSP= 34. sCOPY SPEED 
35 2 REPLACE COMMAND PACKET OFFSETS: 
3 000014 P.RBN= 12. ;REPLACEMENT BLOCK NUMBER 
38 2 SET CONTROLLER CHARACTERISTICS COMMAND PACKET OFFSETS: 
39 000014 P.VRSN= 12. sMSCP 
40 00016 P.CNTF= 14. : CONTROLLER FLAGS 
41 000020 P.HTMO= 16. HOST TIMEOUT 
42 000022 P.USEF= 18. SUSE FRACTION 
rf 000024 P.TIME= 20. ZQUAD-WORD TIME AND DATE 
45 : MAINTENANCE READ AND sana rr WRITE COMMAND PACKET OFFSETS: 
46 000034 P.RGID= 28. 
rt 4 0040 P.RGOF= 32. eREGION OFFSET 
49 Fy EXECUTE SUPPLIED PROGRAM co PACKET OFFSETS: 
50 000024 P.DMDT= 20. T TERMINAL ADDRESS (MAINT WRITE ONLY) 
51 000034 P.OVRL= 28. BUFFER DESCRIPTOR FOR OPERLAYS 





-_-—-— SS SS 


dD 4 
" C2UDEBO UDA=50 DISK FORMATTER MACRO V04.00 14-APR=82 16:50:39 PAGE 40 SEQ 0042 


| GLOBAL EQUATES SECTION 
ZEND PACKET 


000014 P.OTR 
000020 P.CMS 


CUSWN OO VONOuflwr— 
i=] 
So 
So 
So 
= 
= 
vw 
@ 
Le 
2 
= 
iT 
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= 


— 3 FH Ys OS 


ouoaon 
Ss ooo 
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So 
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Nm 
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2 
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32-4 VOM 


2B2°93e%4aS5S2 
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Ww 
o 


SS2lasus 


vuvvuvUvUUUU UT: 
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OFFSETS 


GENERIC END PACKET OFFSETS: 
‘MiTmeene NUMBER 


OPCODE se CALLED ENDCODE) 
END PACK ET FLAGS 


sBYTE COUNT 
FIRST BAD BLOCK 


GET COMMAND STATUS END ee OFFSETS 
:O0UT at oy A REFERENCE NUMBER 
: COMMAND TUS 


GET UNIT STATUS END PACKET OFFSETS: 
sMULT pir CODE 


UNIT FLAGS 
SHOST IDENTIFIER 
SUNIT IDENTIFIER 
7MEDIA TYPE IDENTIFIER 
;SHADOW UNIT 
sSHADOW STATUS 
TRACK SIZE 
2GROUP SIZE 
CYLINDER SIZE 

ae TABLE SIZE 

BNS / TRACK 

RCT COPIES 


ONLINE AND SET UNIT CHARACTERISTICS END PACKET AND AVAILABLE 
ATTENTION MESSAGE OFFSETS: 
sMULTI-UNIT CODE 
sUNIT FLAGS 
sHOST he dal 4 3 
UNIT IDENTIFIER 
MEDIA TYPE IDENTIFIER 
SHADOW UNIT 
; SHADOW STATUS 
COMMAND LIMIT 
SUNIT 


;VOLUME SERIAL NUMBER 
SET CONTROLLER Gna venset iss END PACKET OFFSETS: 
P VERSION 


CONTROLLER FLAGS 
CONTROLLER TIMEOUT 
[CONTROLLER COMMAND LIMIT 
sCONTROLLER ID 


GET DUST STATUS END PACKET A ag Akh 
Bh sg pee EXTENSION 
STATUS FLAGS 
PROGRESS INDICATOR 
;TIMEOUT VALUE 


ny, 


i ne 


ee ee E 4 
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| } sSTATUS AND EVENT CODE DEFINITIONS 
| 3 000037 ST.MSK= 37 
4 000040 T.SUB= 40 
5 000 ST.suc= 0 
é 000001 “CMD= 1 
7 90000¢ “ABO= 2 
| & ST.OFL= 3 
9 000004 ST.AVL= 
10 05 ST.MFE= 5 
11 000006 ST.WPR= 6 
12 000007 ST.CMP= 7 
13 000010 ST.DAT= 10 
14 000011 ST.HST= 11 
15 12 ST.CNT= 12 
16 000013 ST.DRV= 13 
7 0037 ST.DIA= 37 
19 :GET DUST STATUS FLAGS 
21 000010 DF.ACT= 010 
22 000004 DF.NES= 004 
24 000002 DF.LCL= 002 
26 000001 DF.SA= 001 
28 
29 
30 :DUP MESSAGE TYPES 


DU.QUE = 10000 
DU.DFL = 20000 
DU.INF = 30000 
DU.TER = 40000 
DU.FTL = 50000 
DU.SPC = 60000 


DU.TYP= 170000 
DM PROGRAM HEADER DEFINITIONS 
DMTRLN= 0 

4 


40 
DMFRST= 1000 





SEQ 0043 


sSTATUS / EVENT CODE MASK 
;SUB=CODE MULTIPLIER 
CCESS 


ATA ERROR 
HOST BUFFER ACCESS ERROR 
:CONTROLLER ERROR 

sDRIVE ERROR 

MESSAGE FROM AN INTERNAL DIAGNOSTIC 


SET IF THIS DUST CURRENTLY ACTIVE 
[SET IF THIS ed WILL NOT ACCEPT THE EXECUTE 
LIED PROGRAM COMMAND 


3S E 

3SET IF THIS DUST HAS A LOCAL LOAD MEDIA FOR LOADING 
:DIAGNOSTICS AND OTHER UTILITIES 

zSET IF ANY PROGRAM EXECUTION UNDER THIS DUST 
SDISABLES THE OPERATION OF ALL OTHER SERVERS IN THE 
SSAME SYSTEM AS THE DUST 


2 QUESTION 
DEFAULT ee 
: INFORMA 
TERMINATOR. 
FATAL ERROR 
3 SPECIAL 


MESSAGE TYPE FIELD 


SIZE OF te 2 a NEEDING DOWNLINE LOAD 
SOF FSET TO ee OF OVERL 
F 


ccf ee Cr ar ee eee 
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| GLOBAL EQUATES SECTION 


$C OCONAUSWN $0 COONOUEWh— 





; CONTROLLER TABLE DEFINITIONS 


[ONE TABLE WILL BE SET UP BY INITIALIZE SECTION FOR EACH UDA SELECTED 
sFOR TESTING. TABLES ARE CONTIGUOUS. THE END OF THE TABLES IS 
;MARKED BY A WORD OF ZEROS. 


; THE FIRST TABLE IS POINTED TO BY THE CONTENTS OF CTABS. 
3 THE NUMBER OF TABLES IS CONTAINED IN CTRLRS. 


\ 002146 TABLE zSTART A TABLE DEFINITION 
12 002146 ITEM C.UADR 2 sUNIBUS ADDRESS OF UDAIP REGISTER 
13 002146 ITEM C.UNIT 2 
1 000077 CT.UNT= 000077 ; LOGICAL UNIT NUMBER (FIRST) 
1 100000 CT.AVL= BIT15 3 SET WHEN NOT AVAILABLE FOR TESTING 
16 002146 ITEM C.VEC 2 
1 000777 CT.VEC= 000777 ; VECTOR ADDRESS 
1 007000 CT.BRL= 007000 : BR LEVEL 
1 214 ITEM C.BST 2 : BURST LEVEL 
20 002146 ITEM C.JSR 2 ay gt SERVICE ROUTINE FOR CONTROLLER 
21 002146 ITEM C.JAD 2 : THESE TWO WORDS LOADED WITH CJSR RO,UDASRVI 
22 002146 ITEM C.FLG 2 sFLAGS 
23 000002 CT.RN= BIT [DM PROGRAM RUNNING 
24 000004 CT.CMD= BIT2 COMMAND ISSUED, WAITING FOR RESPONSE 
25 000010 CT.MSG= BITS MESSAGE RESPONSE RECEIVED 
26 : WHENEVER THIS BIT IS SET, CT.CMD IS CLEARED 
27 000020 CT.REQ= BIT4 ;BUFFER HAS BEEN GIVEN TO ny FOR REQUEST 
28 3SET WHENEVER READ STUD DATA COMMAND 
29 7GIVEN TO an 
30 000040 CT.STA= BITS 7GET DUST STATUS COMMAND HAS BEEN SENT 
31 000100 CT.TM1= BIT6 ZONE TIMEOUT PERIOD HAS EXPIRED BETWEEN SEND OR 
32 RECEIVE DATA RESPONS 
33 000200 CT.TM2= BIT? sSECOND TIMEOUT HAS EXPIRED 
34 002146 ITEM C.RING 2 ;RING BUFFER ADDRESS 
35 002146 ITEM C.DRO 2 POINTER TO DRIVE TABLES 
36 00214 ITEM C.DR1 2 : IF ZERO, NO DRIVE TABLE EXISTS 
37 00214 ITEM pone 2 
38 00214 ITEM C.DR 2 
39 002146 ITEM C.DR4 2 
40 002146 ITEM C.DRS 2 
41 002146 ITEM C.DR6 2 
42 002146 ITEM C.DR7 2 
43 002146 ITEM C.TO 2 : TIMEOUT COUNTER 
44 002146 ITEM C.TOH 2 (TWO WORDS) 
45 002146 ITEM C.TOT 2 {DUP PROGRAM TIMEOUT VALUE Re, SECONDS 
002146 ITEM C.PRI & [DUP PROGRAM PROGRESS INDICA 
rt 4 002146 ITEM C.REF 2 [COMMAND REFERENCE NUMBER 
49 002146 END C.SIZE SIZE OF CONTROLLER TABLE IN BYTES 
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2146 


2146 
2146 


ss § 


000077 
100000 
2146 


2146 
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| CZUDEBO UDA=50 DISK FORMATTER MACRO V04.00 14-APR=82 16:50:39 PAGE 43 
_— EQUATES SECTION 


; DRIVE TABLE DEFINITIONS 


TONE DRIVE TABLE WILL BE SET UP BY THE INITIALIZE SECTION _ EACH 
sDRIVE SELECTED FOR TESTING. EACH TABLE IS POINTED TO BY 
[WORD IN THE CONTROLLER TABLE ON WHICH THE DRIVE EXISTS. 


TABLE sSTART A TABLE DEFINITION 
ITEM D.DRV 2 sDRIVE NUMBER 
ITEM D.UNIT 


2 
DT.UNT= 000077 

DT.AVL= B1T15 
ITEM D.SERN 22. 


END D.SIZE 


3; LOGICAL UNIT NUMBER OF DRIVE 
3 SET WHEN NOT AVAILABLE FOR TESTING 
DISK SERIAL NUMBER 


SIZE OF DRIVE TABLE IN BYTES 


SEQ 0045 


2 — _ 
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| CZUDEBO UDA=50 DISK FORMATTER MACRO VO4.00 14-APR=82 16:50:39 PAGE 44 SEQ 0046 
| GLOBAL EQUATES SECTION 
| 


| } ZUSEFUL INSTRUCTION DEFINITIONS 
| ; «MACRO AND ARG ADR LOGICAL AND INSTRUCTION 
| 5 ; BIC #*C<ARG>,ADR 
6 «NLIST 
| 4 .ENDM 
| ° .MACRO on ant.son ZLOGICAL OR INSTRUCTION 
11 . BIS #ARG,ADR 
12 .NLIST 
13 .ENDM 
15 .MACRO PUSH ARG :PUSH INSTRUCTION 
16 -IRP X,<ARG> 
17 «LIST 
18 MOV X,-(SP) 
19 «NLIST 
20 ~ENDM 
21 .ENDM 
-MACRO POP ARG :POP INSTRUCTION 
~IRP X,<ARG> 
«LIST 
MOV (SP)+,x 
«NLIST 
.ENDM 
.ENDM 
.MACRO -BR apr :A BRANCH TO THE NEXT LOCATION 
"JTF NE .<ADR 
.ERROR ; ILLEGAL .BR TO ADR 
.ENDC 
.ENDM 


-MACRO ASSUME FIRST CONDITION SECOND 
-IF CONDITION <FIRST>=-<SECOND> 


seunee 3;BAD ASSUME OF <FIRST> CONDITION <SECOND> 


-ENDM 
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 CZUDEBO UDA=50 DISK FORMATTER MACRO V04.00 14-APR=82 16:50:39 PAGE 45 SEQ 0047 
| GLOBAL EQUATES SECTION 
:PRINT CHARACTER 
: ARGUMENT MUST BE SOURCE STATEMENT TO MOVE EHARACTER TO PRINT (MOV ARG,RO) 


SPECIAL CASE: “PRINT #CR'* WILL PRINT END OF LINE SEQUENCE 
; THE PRINTING IS DONE AT THE MODE OF THE LAST PRINT LINE CALL 
: IE.. PNTX, PNTB, PNTX, PNTS 


MACRO PRINT ARG1 
IF DIF <ARG1>,RO 
LIST 


| 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 MOVB ARG1,RO 
12 eNLIST 

13 -ENDC 
14 »LIST 
15 CALL CPNT 
16 eNLIST 
Ht -ENDM 
} sPROCESSING MACRO FOR NEXT SET OF FORMATTED MESSAGE MACROS 
$3 -MACRO PNT... RTN,ADR,ARG1,ARG2,ARG3,ARG4 ,ARGS ,ARG6, ARG? ARG8 
23 - IRP AA,<ARG8,ARG7,ARG6,ARGS ,ARG4 ,ARG3,ARG2,ARG1> 

24 IF NB,<AA> 
25 «LIST 
26 MOV AA,=(SP) 
27 »NLIST 
28 PNT.CT=PNT.CT+2 
29 -ENDC 

30 - ENDM 

31 «LIST 

32 JSR _R1,RTN 
33 -WORD ADR 
34 «WORD PNT.CT 
35 -NLIST 

36 - ENDM 
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- CZUDEBO UDA=50 DISK FORMATTER MACRO V04.00 14-APR-82 16:50:39 pace 46 SEQ 0048 
| GLOBAL EQUATES SECTION 


sPRINT FORMATTED MESSAGE MACROS 

: USE THESE MACROS TO atl A_FORMATTED MESSAGE 

3 FIRST ARGUMENT MUST BE ADDRESS OF FIRST CHARACTER OF MESSAGE STRING 
; TO BE PUT INTO WORD (.WORD A 

> UP TO 8 SOURCE STATEMENTS MAY FOLLOW TO SPECIFY PARAMETERS TO BE 

: USED BY THE FORMAT 


«MACRO PNTF ADR ARG1,ARG2,ARG3,ARG4 ARGS ,ARG6,ARG7,ARG8 
PNT... LPNTF ADR ARG1,ARG2,ARG3,ARG4,ARGS ,ARG6,ARG7, ARGS 


~ENDM 
-MACRO gs ADR ARG1,ARG2,ARG3,ARG4 ARGS ,ARG6,ARG7,ARG8 
PNT... LPNTB ADR ARG1,ARG2,ARG3.ARG4,ARGS ,ARG6,ARG7, ARGS 


-ENDM 
«MACRO PNTX ADR ARG1,ARG2,ARG3,ARG4 ARGS ,ARG6,ARG7, ARGS 
PNT... LPNTX ADR ARG1,ARG2,ARG3,ARG4,ARGS ,ARG6,ARG7, ARGS 


= NDM 
MACRO “— ADR ARG1,ARG2,ARG3,ARG4 ARGS ,ARG6,ARG7, ARGS 
PNT... LPNTS ADR ARG1,ARG2,ARG3,ARG4 ARGS ,ARG6,ARG7, ARGS 


~ENDM 
«MACRO PNT ADR ARG1,ARG2,ARG3,ARG4 ARGS ,ARG6,ARG7, ARGS 
nen NT... LPNT ADR ARG1,ARG2,ARG3,ARG4,ARGS ,ARG6, ARG7, ARGS 


MSO OONOAUEWN—OOONOUSWwh— 


NONID a 
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" CZUDEBO UDA=50 DISK FORMATTER MACRO V04.00 14-APR-82 16:50:39 PAGE 47 
; GLOBAL DATA SECTION 


SEQ 0049 


} ~SBTTL GLOBAL DATA SECTION 
3 
& : THe GLOBAL DATA SH CONTAINS DATA THAT ARE USED 
2 ; IN MORE THAN ONE T 
7 e 
8 002146 FFREE:: .BLKW 1 sFIRST FREE WORD IN MEMORY 
9 002150 FSIZE:: .BLKW 1 sSIZE_OF FREE MEMORY IN WORDS 
10 002152 FMEM: .BLKW 1 COPY OF FFREE AT END OF INIT seer ioe 
11 002154 FMEMS: .BLKW 1 :COPY OF FSIZE AT END OF INIT SECT 
12 002156 CTABS:: .BLKW 1 sSTART OF CONTROLLER TABLE 
13 002160 CTRLRS: .BLKW 1 COUNT OF UDA CONTROLLERS IN PTABLES 
\ 002162 TSTTAB eee warn [POINTER TO FIRST CONTROLLER TABLE UNDER TEST 
16 002164 0000006 DMPROG: .WORD UDAFM sSTART ADDRESS OF DM PROGRAM 
17 002166 DMEND: .BLKW 1 TEND ADDRESS OF DM PROGRAM(FIRST Hn sn ADR) 
18 002170 DMENDS: .BLKW 1 SFREE MEMORY SIZE FROM END OF DM 
19 002172 URUN: .BLKW 1 § ER OF UNITS TO RUN AT ONE TIME 
20 002174 URNING: .BLKW 1 NUMBER OF UNITS STILL RUNNI 
21 002176 UCNT: .BLKW 1 COUNTER OF UNIT E s 
22 002200 UFREEZ: .BLKW 1 FREEZE ON UNIT WHEN NOT ZERO 
23 002202 NXMAD: .BLKW 1 7SET TO ALL ONES BY NON-EXISTANT ADDRESS 
24 0022 000000 FDATA: .WORD 0 
25 002206 F CTBUF : -BLKB 512. STORAGE FOR FCT BLOCK 
26 0032 FCTNUM: .BLKW 1 sFCT BLOCK R 
003210 MODE : “BLKW 1 ;MODE WORD, SAME BIT DEFS AS SO.BIT 
$ CLOCK CONTROL 
31 003212 000000 KW.CSR: .WORD 0 CSR OF CLOCK 
32 003214 KW.BRL: .BLKW 1 :BR 4 vee 
33 003216 KW.VEC: .BLKW 1 :VECTO 
34 003220 KW.HZ: .BLKW 1 SHERI? (9 OR 60.) 
HH 003222 KW.EL: .BLKW 2 ELAPSED TIME 
37 posces 014526 PTYPE: .WORD sPRINT TYPE 
38 0032 000 000 ERRCHR: .BYTE 0,0 FIRST BYTE LOADED WITH OUTPUT CHARACTER 
+4 003930 000000 NULL:  .WORD 0 [USED TO PRINT A NULL CHARACTER 
234 000000 FNAME: .WORD ;SPACE FOR DATA FILE NAME 


a1 003036 


WORD 0 
-BLKB 10. 
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CZUDEBO UDA=50 DISK FORMATTER MACRO V04.00 14-APR-82 16:50:39 PAGE 48 SEQ 0050 
GLOBAL DATA SECTION 


[ 
! 


1 003250 TEMP:  .BLKB 22. USED TO GET ANSWER FROM GMANID CALL 
2 003276 ~—s_: 061 055 112 DATEI: <ASCIZ\1-JAN=-70\ DEFAULT DATE 
3 003307 “BLKB 3 
4 003312 000000 DATEO: :WORD 0 ;DATE STRING IN FORMATTER FORMAT 
5 003314 “BLKB_10. -(FIRST WORD ZERO SAYS NO DATE HERE YET) 
6 003326 061 + «070 «=: 064s HIGHEST: .ASC17\18446744073709551615\  ;HIGHEST DISK SERIAL NUMBER 
7.003353 104 105 + 103 MONTHS: .ASCII\DEC\ = ;NAME OF MONTHS 
8003356 4 43291162=S«117—ts—«*2:286 “ASCII \NOV\ 
9 003361 17 103 126 “ASCIINOCT\ 
10 003364 123 105 120 “ASCII\SEP\ 
11 003367 =: 101 125 =—-:107 “ASCII\AUG\ 
12003372 112,—ti‘«‘<‘25=~C~C~*«‘i2 “ASCII\JUL\ 
13003375 =o 112—i‘«X225~C*«*iS2G; “ASCII\JUN\ 
14 003400 115 101 131 “ASCII\MAY\ 
15 003403 101 120 122 “ASCIINAPR\ 
16 003406 115 101 122 “ASCII\MAR\ 
17 003411 106 4 8©6105-—Ss«*102 “ASCII\FEB\ 
18 003414 112 #101 116 “ASCII\JAN\ 
19 003417 037 DAYS: BYTE 31. NUMBER OF DAYS IN EACH MONTH 
20 003420 035 “BYTE 29. 
21 003421 =: 037 “BYTE 31. 
22 003422 «036 “BYTE 30. 
23 003423 «= 037 “BYTE 31. 
24 003424 036 “BYTE 30. 
25 003425 “BYTE 31. 
“BYTE 31. 
7 “BYTE 30. 
“BYTE 31. 
“BYTE 30. 


-BYTE 31. 
000 YEAR19: .ASCIZ\19\ 
000 YEAR20: 7 hae 
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CZUDEBO_UDA=50 DISK FORMATTER MACRO V04.00 14-APR=82 16:50:39 PAGE 49 SEQ 0051 


GLOBAL TEXT SECTION 
-SBTTL GLOBAL TEXT SECTION 


p++ 
; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
3 MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 

; MORE THAN ONE TEST. 


> NAMES OF DEVICES SUPPORTED BY PROGRAM 


003442 ; DEVTYP <UDA=50 CONTROLLER> 
003442 LSDVTYP:: 
003442 125 104 101 -ASCIZ /UDA=50 CONTROLLER/ 


NO DONOUSWwN— 


— 2 


3 

4 : TEST DESCRIPTION 

6 003464 c DESCRIPT <CZUDEBP UDA=50 DISK DRV FORMATTER> 

003464 LSDESC:: 

003464 103 132 125 -ASCIZ /CZUDEBP UDA=50 DISK 


4 
 czupeno you EBO UDA-50 DIS i= FORMATTER MACRO V04.00 14-APR-82 16:50:39 PAGE 50 SEQ 0052 
| GLOB AL TEXT SECTION 


sUNFORMATTED MESSAGES 


DATEQ: .ASCIZ\ENTER DATE AS DD-MMM-vY 
FILNAQ: .ASCIZ\ wo DISK TO BE FORMATTED\ 


_ 
oO 
ww 

—— 

=—™ 

ne 


6 116 
56 040 106 
10 040 000 SERNQ: .ASCIZ\ 


Pe. 


OL ss ss sss sss 
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GLOBAL TEXT SECTION 





} ; FORMAT STATEMENTS USED IN PRINT CALLS 
| 3.003612 065 124 000 ERRONE: .ASCIZ\3T\ 
4003615 045 116 000 ERRNL: .ASCIZ\ZN\ nike 
5 003620 042 040 040 RNTIM: .ASCIZ\' RUNTIME "'D16'':'"\ 
6 003643 = 106. «S077 «S042 RNTIMI: .ASCIZ\D9"':"\ 
7 003651 104 071 000 RNTIM2: .ASCIZ\D9\ 
8 003654 04204040 ERRMET: -ASCIZ\" + * * ERROR PROCESSING MESSAGE STRING * © *'N\ 
9003743 116 042 125 MESSG: .ASCIZ\N'UNIT "D6" UDA AT "916" 9S\ 
19 004007 042116117, NOCLOCK:-ASCIZ\"NO LINE CLOCK AVAILABLE FOR TIMING EVENTS" N\ 
12 004064 04 110 117 BASNO: .ASCIZ\"'HOST PROGRAM''\ 
13 006103 04 040 040 BASL2: <ASCIZ\"" UDA AT, "“O16\ 
14 004122 04 040 040 BASL3: ‘ASCIZ\" DRIVE "D9\ 
15 004137 000 BAS: BYTE 0 ;NULL TO PRINT NOTHING 
17 004140 122,066 = «122 BASLN: | .ASCIZ\RGRERERG\ ;USED TO PRINT BASIC LINE OF ERROR MESSAGE 
18 004151 116 042 128 SERNUM: LASCIZ\N''SERIAL NUMBER FOR UNIT "D6" UDA AT "'016'" DRIVE “D9\ 


5 
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GLOBAL TEXT SECTI 


1 004236 X1A: 
2 004236 X2A: 
3 004236 X3A: 
4 004236 042 111 040 X8A: .ASCIZ\''I DON'T LIKE THE ANSWERS YOU GAVE TO THE HARDWARE QUESTIONS’ W\ 
5 0043535 122 065 122 Xi: ~ASCIZ\R5R6" UDA HAS MORE THAN ONE VEC + e yon LEVEL OR BURST RATE’ W\ 
6 004431 122 065 122 X2: eASCIZ\RSR6"'TWO UNITS SELECT THE SAME D 
7 004500 122 065 122 X3: eASCIZ\R5SR6 ‘MORE THAN EIGHT DRIVES SELECTED ON THIS UDA''N\ 
8 004563 122 064 042 X4: eASCII\R4''NOT ENOUGH ROOM IN MEMORY TO TEST THE UNITS »SELECTED'W\ 
9 004654 042 120 114 -ASCIZ\' PLEASE START PROGRAM OVER AND 3.1) FEWER UNITS AT A TIME’'N\ 
10 004750 122 065 122 x8: »ASCIZ\RSR6' TWO UDA'S USE THE SAME VECTOR’ W\ 
11 005015 122 064 042 X9: eASCIINRG' ‘ONLY ONE DISK CAN BE SELECTED IN HW QUESTIONS IN RESTORE MODE ."'‘N\ 
\¢ 005120 042 120 114 -ASCIZ\' PLEASE START PROGRAM OVER AND SELECT ONLY ONE DISK. 
13 005207 122 064 042 x10: eASCIZ\R4''THIS PROGRAM CAN ONLY REFORMAT A DISK IN UNATTENDED MODE .*'‘N\ 
14 005306 122 065 042 x20: -ASCII\RS’ MEMORY ERROR TRYING TO READ UDA REGISTERS’ W\ 
15 005364 042 103 110 s aie part SELECTION SWITCHES ON UDA MODULE M7161°'N\ 
16 005452 042 117 122 SCII\'‘OR S’'N\ 
17 005466 042 117 122 ASCIZ\''OR ° 
18 005476 122 065 042 X21: “ASELIARS' UDA. RESIDENT DIAGNOSTICS DETECTED FAILURE’ NR8\ 
19 005556 042 122 105 eASCIZ\''REPLACE UDA MOD “ss M716° O2N\ 
20 005613 122 065 042 X22: eASCIIN\RS'’ STEP BIT DID NOT . SET IN oe REGISTER DURING INITIALIZATION’ WN\ 
21 005714 042 123 124 eASCIZ\’ Cdl BIT EXPECTED ‘‘O16NR8R7 
22 005751 122 065 042 X23A: eASCIINRS ‘UDA DID NOT CLEAR RING STRUCTURE IN HOST MEMORY > a INITIALIZATION’ N\ 
23 00606 104 071 042 eASCII\D9"" WORDS wee TO BE CLEARED STARTING AT ADDRESS *"O16N\ 
24 006151 042 106 111 eASCIIN\' FIRST SVE L WORDS NOT CLEARED (UP TO 6):‘WN\ 
25 006226 123 066 042 -ASCIZ\S6' ‘ADDRESS’ SA 'CONTEN NTS’ N\ 
26 006257 123 067 117 X23B8: eASCIZ\S7016SS5016N\ 
27 006273 122 065 042 X24: .ASCIIN\RS' UDASA REGISTER DID NOT GO TO ZERO AFTER STEP 3 WRITE OF INITIALIZATION’ W\ 
8 006406 042 120 125 -ASCIZ\' PURGE/POLE DIAGNOSTICS WERE REQUESTED’ NR8R7 
29 006463 122 065 042 x25: eASCIE\RS' UDA DID NOT RETURN cone er DATA IN UDASA REGISTER DURING INITIALIZATION’ W\ 
30 006577 042 040 040 -ASCIZ\"" UDASA EXPECTED ‘‘O16NR8R7\ 
31 006634 122 065 042 x30 eASCIZ\RS' UDA REPORTED yey ERROR IN UDASA REGISTER WHILE RUNNING DM PROGRAM’ WRB\ 
32 006747 122 065 042 X31 eASCIZ\R5'DUP PROGRAM IS HUNG'N\ 
007 122 065 042 x32 oA ASCIZ\RS* MESSAGE BUFFER RECEIVED FROM DM PROGRAM WIT! UNKNOWN REQUEST NUMBER’ N\ 
34 00711 122 065 042 x36 eASCII\RS''NO INTERRUPT RECEIVED FROM UDA FOR 30 SECONDS’ N\ 
35 007173 042 127 110 eASCIZ\' WHILE LOADING DM PROGRAM’ N\ 
36 007227 122 065 042 x37 eASCIZ\RS' UDA REPORTED FATAL ERROR IN UDASA REGISTER WHILE LOADING DM PROGRAM’ NRBR7\ 
37 007344 122 065 042 x100 “ASCIZ\R5° DUP PROGRAM ASKED UNEXPECTED QUESTION (°D12°")"N\ 
0074 122 065 042 x101 .ASCIZ\RS' DUP PROGRAM REJECTED ANSWER TO DATE OR SERIAL NUMBER QUESTION’ N\ 
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| CZUDEBO UDA=50 DISK FORMATTER MACRO V04.00 14-APR=82 16:50:39 PAGE 53 SEQ 0055 
| GLOBAL TEXT SECTION 
| 1007532 (04 115 105 XMSG1: .ASCIZ\'MESSAGE BUFFER CONTAINS: "N\ 
| 2 007566 3=s-‘12 063 117 XMSG2:_ :ASCIZ\S3016S1016$1016S1016S1016S1016s1016N\ 
3 007633 122 065 042 XPKT1: .ASCII\RS''RESPONSE PACKET ye. S NOT poreat EXPECTED DATA'N\ 
| 4007727 «4 105 111 CASCLIN"ELTHER UCA RETURNED ERR Pa pATUS OR PACKET WAS NOT RECEIVED CORRECTLY’ W\ 
5 010037, —s«<12 063 «=: 042 “ASCIZ\S3" ‘COMM CKET, SENT "56" RESPONSE PACKET RECEIVED’ N\ 
6 010124 Meee upkra:  “ASEI#\8601681016516018S101 ON\ 
7010153 042 040 040 XSA:  ASCIZ\"’ UDASA CONTAINS "'O16N\ 
8010206 042122105 MFRU: —CASCIZ\"REPLACE UDA MODULE M7161°N\ 
10 
11 010240 045 101 111 SERNX: «ASCIZ\ZAINPUT ERROR. ANSWER WITH DECIMAL NUMBER LO= 0 HI= %T\ 
12 010330 042 111 116 DATEX: .ASCIZ\"INPUT ERROR. 
1$ 01084742 116-10 FILNAM: ASCIZ\"NAME OF FILE CONTAINING BAD SECTOR INFORMATION’ 
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| | GLOBAL ERROR REPORT SECTION 


177777 


177777 


ViFWN CO ODNOUE Wh 


_— Ss 


010430 012746 
34 37 


— 


6 
010446 012746 
010452 004137 
010456 004431 
010460 000002 


010464 ee 


oo st -_ 


ra 


004236 
014660 


004236 
014660 


004236 
014660 


014660 


014660 


014660 


-SBTTL GLOBAL ERROR REPORT SECTION 


SVCTAG= -1 


BGNMSG ERROO1 
PNTB X1,4X1A 


ENDMSG 


BGNMSG ERROO2 
PNTB X2,#X2A 


ENDMSG 


BGNMSG ERROO3 
PNTB X3,4X3A 


ENDMSG 
BGNMSG ERRO04 
PNTB X4 


ENDMSG 
BGNMSG ERROO9 
PNTB X9 


ENDMSG 


BGNMSG ERRO10 
PNTB X10 


ENDMSG 


USED BY MORE TH 
* (BASIC) AND PRINTX (EXTENDED) CALLS ARE 


SEQ 0056 


THE GLOBAL ERROR eth ee futon CONTAINS MESSAGE PRINTING AREAS 
AN TEST OUTPUT ADDITIONAL ERROR INFORMATION. PRINTB 


USED TO CALL PRINT SERVICES. 
LIST ey ba 9 ae F on A RIGHT 
TED RIGHT 


ah a ah 


MOV #X1A,-(SP) 
JSR R1,LPNTB 
«WORD X1 

-WORD PNT.CT 


MOV #X2A,-(SP) 
JSR R1,LPNTB 


«WORD X2 
eWORD PNT.CT 


MOV #X3A,-(SP) 
JSR _R1,LPNTB 


«WORD X3 
WORD PNT.CT 


JSR _R1,LPNTB 
eWORD X4 
WORD PNT.CT 


JSR R1,LPNTB 
eWORD X9 
WORD PNT.CT 


JSR _R1,LPNTB 
-WORD X10 
-WORD PNT.CT 





GLOBAL ERROR REPORT SECTION 
37 
38 010540 


010540 012746 004236 
010544 004137 014660 


010556 004137 014660 
564 000000 


47 010570 010201 
000301 


010574 geeret 177775 


010610 004137 014660 


56 010622 042737 100000 


0 
010632 013746 016572 
010636 004137 014660 


010642 005613 
010644 
58 010646 
59 010666 
60 
61 010670 
62 010670 
010670 013746 002146 
010674 010146 
010676 004137 014660 
010702 005751 
010704 000004 
63 010706 005742 
64 010710 005712 
65 010712 001410 
66 010714 
010714 011246 
010716 010246 
010720 004137 014660 
010724 006257 


016572 


BGNMSG ERROO8 
PNTB X8,AX8A 


ENDMSG 


BGNMSG ERRO20 
PNTB X20 


ENDMSG 
BGNMSG ERRO21 
MOV R2,R1 
SWAB RI 
AND 2,R1 
ASR R1 
INC R1 
PNTB X21,R2,R1 


ENDMSG 
BGNMSG ERRO22 


BIC #SA,ERR,UDARSD 
PNTB X22,UDARSD,R2 


PRINTX #XFRU 
ENDMSG 


BGNMSG ERRO23 
PNTB X23A,R1,FFREE 


TST =(R2) 
ERR23A: TST (R2) 
R238 
PNTB X238,R2,(R2) 


SEQ 0057 


MOV #X8A,-<(SP) 
JSR Ri, LPNTB 


WORD x8 
-WORD PNT.CT 


JSR _R1,LPNTB 
«WORD X20 
~WORD PNT.CT 


BIC #*C<2>,R1 


MOV R1,-(SP) 
MOV R2,-(SP) 
JSR a 


WORD X 
-WORD PNT.CT 


MOV R2.-(SP) 
MOV UDARSD,-(SP) 
JSR HA i 


«WORD X 
eWORD PNT.CT 


MOV FFREE,-(SP) 
MOV R1,-(SP) 
JSR_R1,LPNTB 
«WORD X23A 
-WORD PNT.CT 


-WORD X238 
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| GLOBAL ERROR REPORT SECTI 


010750 
73 010752 
74 
75 010754 


co co 

Neen RATS 

So So0O0O SOOCOCOCSOO GOCOCoOoO SCOOCCoCoOSo ocoOo 
SFSI88S S88 
Nat ot es 
OOfuo Nm 


— — — a ore oo —— SIO — eet oo _—— 


— — es ts a oot ee ed ed ed ed ed <3 ed od 
oooo 
aaa 
Orronoengs 
: 
~N 
> 
N 


=] 
ine) 
3 
Ww 
N 


C283 
ooo 
SRE 


Arun OfN0 


SSSLERRSA 


1 


Oo 


014660 


014660 


014660 


014660 


014660 


014660 


011234 


011142 





DEC R4 
BEQ ERR23C 
ERR238: TST (R2)+ 


C R3 
BNE ERR23A 
ERR23C: PNTB XFRU 


ENDMSG 


BGNMSG ERRO24 
PNTB X24,R2 


ENDMSG 


BGNMSG ERRO2S 
PNTB X25,R1,R2 


ENDMSG 


BGNMSG ERRO30 
PNTB X30,R1 


ENDMSG 


BGNMSG ERRO31 
PNTB X31 


ENDMSG 
BGNMSG ERRO32 
PNTB X32 


CALL MSGPKT 


ENDMSG 
BGNMSG ERRO33 

ALL PNTPKT 
ENDMSG 


BGNMSG ERRO34 


«WORD PNT.CT 


JSR R1,LPNTB 
RD XFRU 
- WORD PNT. cT 


MOV R2,-(SP) 
JSR_R1,LPNTB 
«WORD X24 

«WORD PNT.CT 


MOV R2,=-(SP) 
MOV R1,-(SP) 
JSR RI, bPNTB 


- WORD 
«WORD PNT.CT 


MOV R1,-(SP) 
JSR_R1,LPNTB 
-WORD X30 

WORD PNT.CT 


JSR _R1,LPNTB 
«WORD X31 
-WORD PNT.CT 


JSR _R1,LPNTB 
«WORD X32 
-WORD PNT.CT 


SEQ 0058 


oo ee oe Ce ee OC + - - 
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| CZUDEBO UDA=50 DISK FORMATTER MACRO V04.00 14-APR-82 16:50:39 PAGE 54=3 SEQ 0059 
| GLOBAL ERROR REPORT SECTION 


| 107: 011060 004737 011142 CALL PNTPKT 
J Bee Ores ENDMSG 
| 104 011066 BGNMSG ERRO36 
| —- 105 011066 PNTB X36 
| 011066 004137 014660 JSR _R1,LPNTB 
011072 007111 WORD X36 
011074 000000 WORD PNT.CT 
106 011076 ENDMSG 
108 011100 BGNMSG ERRO37 
109 011100 PNTB X37,R1 
011100 010146 : MOV R1,=<SP) 
011102 004137 014660 JSR_R1,LPNTB 
011106 007227 -WORD X37 
011110 000002 WORD PNT.CT 
110 011112 ENDMSG 
112 011114 BGNMSG ERR100 
113 011114 PNTB X100,(R4) 
011114 011446 MOV (R4),-(SP) 
011116 004137 014660 JSR_R1,LPNTB 
011122 007344 -WORD X100 
011124 000002 -WORD PNT.CT 
116 011126 ENDMSG 
116 011130 BGNMSG ERR101 
117 011130 PNTB X101 
011130 004137 014660 JSR _R1,LPNTB 
011134 007427 -WORD X101 
011136 000000 -WORD PNT.CT 
11g 011140 ENDMSG 
120 011142 PNIPKT: PNTB XPKT1 
011142 004137 014660 JSR _R1,LPNTB 
011146 007633 WORD XPKT1 
011150 00 -WORD PNT.CT 
121 011152 010401 MOV R4,R1 
122 011154 062701 000104 ADD #HC.CPK,R1 
123 011160 010402 MOV R4, 
124 011162 062702 000020 ADD #HC.MPK .R2 
125 011166 012703 000014 MOV #12..R 
126 011172 PNTPKL: PNTB XPKT2,2(R1),(R1),2(R2),(R2) 
011172 011246 MOV (R2),=(SP) 
011174 016246 000002 MOV 2(R2) ,=(SP) 
011200 011146 MOV (R1),=(SP) 
011202 016146 000002 MOV 2(R1),~(SP) 
011206 004137 014660 JSR _R1,LPNT 
011212 010124 -WORD XPKT2 
011214 1 -WORD PNT.CT 
127 011216 062701 000004 ADD #4,R1 
128 011222 062702 000004 ADD #4,R2 
129 011226 00530 DEC R3 
130 011230 001360 BNE PNTPKL 
13 011232 000207 RETUR 
133 011234 MSGPKT: PNTB XMSG1 





—— 
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oOfo 


rrnn 
RSFS 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


kk et ek a ed ed td ot oe = 
aot os a os as es tS SS OI SS SI 


WNWWWWWWw 


WWRNN— 
NOANOAONS 





004137 
007532 
000000 
016504 
062704 
012703 
016446 
016446 


000207 


014660 


000016 
000306 
000005 
000014 


0000 
000002 
014660 


000016 


MSGPKL : 





SEQ 0060 


JSR _R1,LPNTB 
«WORD XMSG1 
«WORD PNT.CT 
MOV i RING(R5) ,R4 
ADD #HC.BF2,R4 


MOV #5,R3 
PNTB XMSG2, (RG) .2¢R4) ,4(R4) ,6(R4) ,B. (RG), 10. (RG) ,12. (RG) 
MOV 12.(R4),-(SP) 


WORD 
«WORD PNT.CT 
ADD #14.,R4 
DEC R3 
BNE MSGPKL 
RETURN 


“um aia octaami ee 


5 
| CZUDEBO UDA-50 DISK EORMATTER MACRO V04.00 14-APR=82 16:50:39 pace 55 SEQ 0061 
GLOBAL ERROR REPORT SECTION 
| 1 009001 SVCINS= 1 3; LIST vp Lge VL igee oe he -_ 
2 000001 SVCTST= 1 : LIST TEST TAGS, SHIFTE 
% 000001 SVCSUB= 1 + LIST SUBTEST TAGS, SHIFTED RIGHT 
4 000001 SVCGBL= 1 s LIST GLOBAL TAGS, SHIFTED RIGHT 
| 5 000001 SVCTAG= 1 * LIST OTHER TAGS, SHIFTED RIGHT 


Kk 5 
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GLOBAL SUBROUTINES SECTION 





4 .SBTTL GLOBAL SUBROUTINES SECTION 
? :MEMORY ALLOCATION ERROR 
; ‘THIS ROUTINE PRINTS A SYSTEM FATAL ERROR AND EXITS THE TEST 
7 011334 FMERR: ERRSF 4,,ERRO04 
011334 104454 TRAP 
011336 000004 . WORD 
011340 000000 . WORD 
011342 010502 . WORD 
8 011344 DOCLN ; ABORT 
011344 104444 TRAP 


CSERSF 
4 


0 
ERROO4 
C$DCLN 


SEQ 0062 


ee ae a a a ne +e — 


LS 
 CZUDEBO UDA=SO DISK FORMATTER MACRO V04.00 14-APR-82 16:50:39 PAGE 57 SEQ 0063 
| GLOBAL SUBROUTINES SECTION 


| 1 ;ALOCM 

§ ZALLOCATE A BLOCK OF FREE MEMORY. REPORT ERROR IF MEMORY EXHAUSTED. 

5 3 INPUTS: 

| 6 ; R1 = NUMBER OF WORDS TO ALLOCATE | 

7 ; FFREE = FIRST FREE WORD IN MEMORY 

| 8 EE ns - SIZE OF FREE MEMORY AVAILABLE IN WORDS 

| 10 ; R1 = ADDRESS OF FIRST WORD OF ALLOCATED MEMORY 

| 11 ; FFREE = NEW FIRST FREE WORD IN MEMORY 

12 FSIZE = SIZE OF FREE MEMORY LEFT AFTER ALLOCATION 

13 SSYSTEM FATAL ERROR WILL BE REPORTED IF NOT ENOUGH MEMORY AVAILABLE 

| 14 SAND ENTIRE PROGRAM WILL BE STOPPED. 
16 011346 ALOCM: PUSH FFREE sSAVE FFREE AT ENTRY 

011346 013746 002146 MOV FFREE,-(SP) 
17 011352 160137 002150 SUB R1,FSIZE REDUCE SIZE OF FREE MEMORY 
18 011356 002766 BLT FMERR REPORT ERROR IF NOT ENOUGH MEMORY 
19 011360 060101 ADD R1,R1 3 CHANGE WORDS TO BYTES 
20 011362 060137 002146 ADD R1,FFREE ZCALCULATE NEW START OF FREE MEMORY 
21 011366 POP R1 3GET START OF ALLOCATED MEMORY 
011366 012601 MOV (SP)+,R1 

22 011370 000207 RETURN 





er ee “Ero 
| CZUDEBO UDA=50 DISK FORMATTER MACRO.V04.00 14-APR=-82 16:50:39 PAGE 58 SEQ 0064 
GLOBAL SUBROUTINES SECTION 





HCOMM 


SALLOCATES MEMORY FOR HOST COMM AREA AND PACKET BUFFERS WITH ONE 
DESCRIPTOR IN EACH RING. TO BE CALLED WHEN INITIALIZING 
3A CONTROLLER WITH SA.MSG=0 AND SA.CMD=0. 


; INPUTS: 
RS = ADDRESS OF CONTROLLER TABLE 
SOUTPUTS: 
; CONTROLLER TABLE POINTING } HOST COMM AREA 
$ R4 = ADDRESS OF HOST COMM AREA 


11372 012701 000214 HCOMM: MOV #HC.S1Z/2,R1 sGET SIZE OF AREA = ALLOCATE 

11376 004737 011346 CALL ALOCM ZALLOCATE THE MEMORY 

11402 010165 000016 MOV R1,C.RING(RS) 3GET ADDRESS OF HOST COMM AREA 
. sPLACE IN CONTROLLER TABLE 


NOAUSWM-2-0 OONOUSWN— 


as i - Fat 


1406 000207 RETURN 


a 


‘Sena ne: ecesesasnanecti a eesti 
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GLOBAL SUBROUTINES SECTION 


4 
5 
6 
4 
8 
9 
10 
11 
12 
13 
14 
15 011410 
16 011414 
17 
18 
19 
20 011420 
21 011426 
22 011432 
23 011432 
24 011436 
25 011444 
011450 
7 011452 
8 011452 
9 011456 
0 011462 
1 011464 
2 011470 
3 011474 


BRR ROW w Mmrow 
So 
= 
w 


45 011520 


010137 
005037 


013737 
013705 


012737 


005737 


000207 


002172 
002174 


002172 
002162 


000014 


000002 
000002 


011372 
015012 
002174 
paotoe 


002200 
177777 


002174 


002176 


002074 


003206 





3 RUNDM 


[LOAD AND RUN A DM PROGRAM IN THE CONTROLLERS. RETURN WHEN ALL 
3DM PROGRAMS HAVE TERMINATED. 


: INPUTS 


‘OUTPUTS: 


RUNDM: 


“TSTTAB = POINTER TO FIRST CONTROLLER TABLE 


R1 - = OF CONTROLLERS TO TEST 
:IMPLICIT INPUTS 
MPROG = POINTER TO START OF DM PROGRAM IN MEMORY 


Z SET IF NO CONTROLLERS SUCCESSFULLY STARTED 
ALL REGISTERS ARE USED AND PREVIOUS CONTENTS DESTROYED. 


MOV R1,URUN 
CLR URNING 


LOAD DM PROGRAM INTO EACH CONTROLLER 


LDDM: 


LDNEXT: 


MOV URUN,UCNT 
MOV TSTTAB,RS 


CLR C.FLG(RS) 
MOVB C. ol rca) ASL 


TST C.UNIT 
BMI LDNEXT 

ASSUME CT.AVL EQ BIT15 
CALL HCOMM sALLOCATE SPACE 


CALL LOADDM 
BEQ LDNEXT 


INC URNING 
ADD #C.SIZE,R5 
DEC UCNT 


BNE LDDM 
CLR UFREEZ 
MOV #-1,FCTNUM 


zCHECK IF ANY CONTROLLERS LOADED 


TST URNING 


THE DM PROGRAMS ARE NOW IN CONTROL 
RESPDM MUST BE CALLED TO RESPOND TO THEIR REQUESTS 


RETURN 


SAVE NUMBER OF UNITS TO RUN 
CLEAR WUMBER OF UNITS RUNNING 


SET COUNTER OF UNITS 
GET FIRST CONTROLLER TABLE 


CLEAR ALL FLAGS 
SEE IF UNIT TO BE TESTED 


zIF NOT, DON'T LOAD THIS UNIT 


FOR HOST COMM AREA 

1 THE DM PROGRAM 

:I1F ERROR, GO TO NEXT CONTROLLER 
31F NO ERROR, COUNT UNIT RUNNING 
;MOVE TO NEXT CONTROLLER TABLE 

= CHECK IF Fee CONTROLLERS 


sLOAD NEXT 
UIT FREEZE F 


: CLEAR LAG 
;INVALIDATE FCT BLOCK NUMBER (BLOCK IN MEMORY) 


sANY UNITS LOADED? 


SEQ 0065 





rs - +--+ + 
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CZUDEBO UDA=50 DISK FORMATTER MACRO V04.00 14-APR=82 16:50:39 PAGE 6 SEQ 0066 


| GLOBAL SUBROUTINES SECTION 
| ;RESPDM 
| ‘ 


SRESPOND TO DM REQUESTS. RETURN WHEN ALL DM PROGRAMS 
SHAVE TERMINATED. 


ay 
6 011522 013705 002162 RESPDM: MOV TSTTAB.RS :GET CONTROLLER TABLE ADDRESS 
| 7 011526 013737 009172 002176 MOV URUN,UCNT “SET COUNTER OF UNITS 
| 8 011536 RESPCT: BREAK ALLOW DRS TO SEE TERMINAL INPUT 
| 011534 104422 TRAP _CSBRK 
| 9 011536 016504 000016 MOV C.RING(RS) RG :GET HOST COMM AREA ADDRESS 
| 10 011542 032765 000002 000014 BIT #CT.RN,C.FLGCRS) :CHECK IF PROGRAM RUNNING 
| 11 011550 001502 BEQ RSPNXT ‘IF NOT, LOOK AT NEXT 
12 011552 116537 000002 002074 MOVB C.UNIT(RS) .LSLUN ‘STONE UNIT NUMBER UNDER TEST 
| 13 011560 032765 000010 000014 BIT #CT.MSG,C.FLG(RS) :SEE IF INTERRUPT RECEIVED 
| 14 011566 001150 BNE RSPIN ‘IF SO, LOOK AT PACKET 
1$ 011570 032765 000004 000014 BIT #CT.CMD,C.FLG(RS) SEE TE FOMPAND HAS BEEN SENT 
16 011576 001002 BN ‘IF NOT, SEND ONE 
17 011600 000157 012346 JMP RSPOUT 
19 SCHECK IF UDA STILL RUNNING 
51 011604 011503 1$: MOV (RS),R3 SGET ADDRESS OF UDAIP 
52 011606 016301 000002 MOV 2(R3).R1 SLOOK AT UDASA REGISTER 
5$ 011612 001405 BEQ RSPTM ‘IF ZERO, UDA STILL RUNNING 
24 011614 ERRDF 30,,ERRO30 *REPORT UDA HAS FATAL ERROR 
011614 104455 TRAP _—CSERDF 
011616 000036 “WORD 30 
011620 000000 “WORD 0 
011622 011006 “WORD  ERRO3O 
25 011624 000465 BR RSPDRP :DROP CONTROLLER FROM TESTING 
27 SCHECK FOR TIMEOUT OF RESPONSE 
59 011626 005765 000044 RSPTM: TST C.TOT(RS) :SEE IF DUP PROGRAM TO BE TIMED 
30 011632 001451 BEQ RSPNTO 
31 011634 005737 003212 TST KW.CSR SEE IF A CLOCK ON SYSTEM 
32 011640 001446 BEQ RSPNTO “DON'T TIME IF NO CLOCK 
33 011642 023765 003224 000042 CMP KW.EL+2,C.TOH(RS) “COMPARE TO TIMEOUT COUNTER 
34 011650 101005 BHI RSPTMO 
35 011652 001041 BNE RSPNTO 
3% 011654 023765 003222 000040 CMP KW.EL,C.TO(RS) 
37 011662 103435 BLO RSPNTO :16 TOO MUCH TIME ELAPSED SINCE LAST. INTERRUPT 
38 011664 032765 000040 000014 RSPTMO: BIT #CT.STA.C.FLG(RS) “SEE IF A GET DUST STATUS COMMAND OUTSTANDING 
39 011672 001101 BNE RSPTO SREBORT ERROR If SO” 
40 011674 005764 000012 TST HC.CCT(RG) ‘SEE IF UDA TOOK LAST COMMAND PACKET 
41 011700 100476 BAI RSPTOE *REPORT ERROR IF NOT 
42 011702 012700 000100 MOV #CT.TM1,RO <SEE IF FIRST TIMEOUT ALREADY HAPPENED 
43 011706 032765 000100 000014 BIT #CT.TM1_C.FLG(RS) 
| 4% 011714 001401 BEQ 1$ SIF $0 
45 011716 006300 ASL RO ‘SET SECOND TIME OUT FLAG 
| 46 011720 052700 000040 1$: BIS #CT.STA,RO :SET THE PROPER TIMEOUT BI 
47 011724 050065 000014 BIS RO,C.FLG(RS) AND STATUS REQUESTED BIT 
| 48 011730 012700 000001 MOV #0P. GDS, RO “BUILD GET DUST STATUS COMMAND 
| 49 011734 004737 015214 CALL BLDCMD 
50 011740 012764 100000 000012 MOV #RG.OWN,HC.CCT(R4) :MARK COMMAND TO UDA 
| $1 011746 005775 000000 TST a(Rs) “TELL UDA COMMAND IS THERE 
: $2 011752 900137 012426 JMP RSPOUS 
| 





SS 
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| CZUDEBO UDA=50 DISK FORMATTER MACRO V04.00 14-APR-82 16:50:39 PAGE 6b-1 SEQ 0067 
GLOBAL SUBROUTINES SECTION 


| 
| $3 011756 RSPNTO: 


D 6 
" CZUDEBO UDA=50 DISK S yp he MACRO V04.00 14-APR-82 16:50:39 PAGE 61 SEQ 0068 
| GLOBAL SUBROUTINES SECTION 


} s;SWITCH TO NEXT CONTROLLER 
3.011756 005737 002200 RSPNXT: TST UFREEZ sFROZEN TO ONE UNIT? 
| 4 011762 001264 BNE RESPCT ;STAY THERE IF SO 
5 011764 062705 000054 ADD #C.SIZE,R5 sMOVE TO NEXT TABLE 
| 6 011770 005337 002176 DEC UCNT CHECK IF MORE CONTROLLERS 
7 011774 + 001257 BNE _RESPCT [LOOK AT NEXT CONTROLLER 
| : 011776 BR RESPDM LOOK AT FIRST CONTROLLER AGAIN 
| 19 sREMOVE A CONTROLLER FROM TESTING 
12 012000 005065 000014 RSPDRP: CLR C.FLG(RS)  ;CLEAR PROGRAM RUNNING 
13 012004 005037 002200 CLR UFREEZ 
14 012010 010504 MOV R5,R4 
15 012012 062704 000020 ADD #C.DRO,R4 
16 012016 012702 000010 MOV #8.,R 
17 012022 012403 1$: MOV (R4)+,R3 
18 012024 001420 BEQ 3$ 
19 012026 005763 000002 TST D.UNIT(R3) 
20 012032 ASSUME DT.AVL EQ BITI5 
21 012032 100003 BPL 2$ 
22 012034 005302 DEC R2 
23 012036 001371 BNE _1$ 
24 012040 000412 BR 3$ 
25 012042 052763 100000 000002 2$: BIS #DT.AVL,D.UNIT(R3) 
26 012050 005302 DEC R2 
27 012052 001405 BEQ 3$ 
28 012054 005714 TST (R4) 
29 012056 001403 BEQ 3$ 
30 012060 004737 015012 CALL _LOADDM START DM PROGRAM AGAIN 
31 012064 001223 BNE RESPCT 
32 012066 005337 002174 3$: DEC URNING REDUCE RUNNING CONTROLLERS COUNT 
33 012072 001331 BNE RSPNXT 7IF ANY STILL RUNNING, LOOK AT THEM 
$e 012074 000207 RETURN SELSE RETURN TO TEST SECTION 
36 012076 RSPTOE: ERRDF 31,,ERRO31 REPORT TIMEOUT ERROR 
012076 104455 TRAP CSERDF 
012100 037 -WORD 31 
012102 000000 «WORD 0 
012104 011022 -WORD ERRO31 
37 012106 000734 BR RSPDRP DROP CONTROLLER FROM TESTING 
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GLOBAL SUBROUTINES SECTION 


1 CONTROLLER HAS RESPONDED, LOOK AT MESSAGE PACKET 
5 ;CHECK FOR PROPER OPCODE IN END PACKET 
5 012110 012700 0002064 RSPIN: MOV #0P.END+OP.SSD,RO GET SEND DATA END PACKET OPCODE 
§ Bist EH a 000020 000014 at By. ~REQ,C.FLG(RS) sLOGK IF SEND DATA OR RECEIVE DATA 
8 072124 012700 000205 MOV #OP. END+OP. RSD ,RO CHANGE TC RECEIVE DATA END PACKET OPCODE 
9 012130 120064 000030 RSPMWR: CMPB RO,HC.MPK+P.OPCD(R4) COMPARE TO OPCODE IN END PACKET 
19 012134 001145 BNE RSPERR 
\¢ 3LOOK AT STATUS CODE 
14 012136 032764 000037 009032 BIT #ST.MSK,HC.MPK+P.STS(R4) sCHECK FOR STATUS CODE ST.SUC (ZERO) 
F 012144 001004 BNE RSPERW 
\ ;CHECK FOR EXPECTED REFERENCE NUMBER 
19 012146 026564 000052 000020 CMP C.REF(RS),HC.MPK+P.CRF(R4) ;CHECK IF CORRECT REF NUMBER 
20 012154 001405 BEQ RS 
21 012156 RSPERW: ERRDF 33,,ERRO33 
012156 104455 TRAP CSERDF 
012160 000041 «WORD 33 
012162 000000 -WORD 0 
012164 011052 -WORD ERRO33 
3 012166 000704 BR RSPDRP DROP UNIT FROM TESTING 
$¢ CHECK IF RESPONSE FROM SEND OR RECEIVE DATA COMMAND 
26 012170 032765 000020 000014 RSPPTW: BIT ACT. ~ bs C.FLG(RS) CHECK IF RESPONSE FROM DM PROGRAM 
27 012176 001463 RSPOU: BEQ RSPO LOOK AT REQUEST NUMBER IF SO 


SEQ 0069 


: Se eens 
— CZUDEBO UDA=50 DISK FORMATTER MACRO V04.00 14-APR=82 16:50:39 PAGE 68 SEQ 0070 
GLOBAL SUBROUTINES SECTION 


| 1 MAINTENANCE READ END PACKET RECEIVED, LOOK AT REQUEST FROM DM PROGRAM 
$ 012200 016401 000306 RSPPT2: MOV HC.BF2(R4) RI GET REQUEST NUMBER 
4 012204 042701 007777 BIC —- #*C<DU.TYP>,R1 CHECK TYPE 
| 5 012210 001403 BEQ 1$ z1F ZERO, ERROR 
| 6 012212 020127 060000 CMP _R1,#DU. SPC CHECK IF IN EXPECTED RANGE 
| 7 012216 101405 BLOS RSPPT3 
8 012220 1$: ERRDF 32,,ERRO32 BAD REQUEST NUMBER 
| 012220 104455 TRAP CSERDF 
012222 000040 -WORD 32 
| 012226 “WORD 0 
| 012226 011034 -WORD  ERRO32 
» 012230 000663 BR RSPDRP :DROP UNIT FROM TESTING 
11 012232 016403 000034 RSPPT3: MOV HC.MPK+P.BCNT(R4) ,R3 GET BYTE COUNT OF CHARACTERS RECEIVED IN R3 
12 012236 162703 000002 SUB #2, (FIRST TWO CHARACTERS ARE TYPE WORD) 
13 012242 012700 000004 MOV #0P.SSD,RO ;BUILD A SEND DATA COMMAND PACKET 
14 012246 004737 015214 CALL BLDCMD :__FOR ANSWER TO DM PROGRAM 
15 012252 012700 000164 MOV #HC.BF1,RO ;POINT TO BUFFER IN PACKET 
16 012256 004737 015356 CALL_CLRBUF ;_AND CLEAR BUFFER 
17 012262 010402 MOV R4,R2 3R2 POINTS TO SEND BUFFER 
18 012264 062704 000122 ADD #HC.BSZ,R4 3R4 POINTS TO CHARACTERS IN RECEIVE BUFFER 
19 012270 042724 170000 BIC #DU. TYP, (R4)+ ;CLEAR TYPE FIELD IN BUFFER 
20 012274 000301 SWAB R1 3GET TYPE RIGHT JUSTIFIED 
21 012276 006201 ASR R1 s TIMES TWO 
22 012300 006201 ASR R1 
23 012302 006201 ASR RI 
24 012304 010100 MOV R1,RO sCOPY MESSAGE TYPE TO RO 
25 012306 005001 CLR R 3R1 CONTAINS ZERO SEND BYTE COUNT 
26 012310 770 012574 CALL @RSPDSP-2(R0) CALL REQUESTED ROUTINE 
27 012314 001231 BNE RSPDRP ROUTINE RETURNS Z CLEAR TO DROP UNIT FROM TESTING 
28 3; _Z_ SET IF UNIT TO CONTINUE RUNNING 
29 012316 016504 000016 MOV C.RING(RS) ,R4 GET RING ADDRESS 
30 012322 032701 000001 BIT #1,R1 LOOK AT CHARACTER COUNT TO SEND TO DUP PROGRAM 
31 012326 001401 BEQ 1$ 31F AN ODD COUNT 
32 012330 005201 INC R1 :__ INCREASE BY ONE 
33 012332 010164 000120 1$: MOV R1,HC.CPK+P.BCNT(R4) PUT CHARACTER COUNT IN COMMAND PACKET 
34 012336 100003 BPL RSPOU 31F NEGATIVE BYTE COUNT RETURNED 
HH 012340 042765 000020 000014 BIC #CT.REQ,C.FLG(RS) ; DON'T SEND ANY DATA TO UDA 
37 ;SEND COMMAND BACK TO UDA 
39 012346 042765 000350 000014 RSPOUT: BIC #CT.MSG+CT.STA+CT.TM1+CT.1M2,C.FLG(RS) CLEAR MESSAGE RECEIVED FLAG 
40 012354 032765 000020 000014 BIT #CT.REQ,C.FLG(RS) sCHECK WHICH COMMAND TO SEN 
‘3 012362 001014 BNE RSPOU2 BRANCH IF RESPONSE TO REQUEST 
43 012364 012700 000005 MOV #OP.RSD,RO BUILD RECEIVE DATA COMMAND 
44 012370 004737 015214 CALL BLDCMD 
45 012374 012700 000306 MOV #HC.BF2,R0 :POINT TO MESSAGE BUFFER 
46 012400 004737 015356 CALL CLRBUF ; AND CLEAR IT 
47 012404 052765 000020 000014 BIS #CT.REQ,C.FLG(RS) SET REQUEST BIT 
48 012412 000403 BR RSPOU3 
50 012414 042765 000020 000014 RSPOU2: BIC #CT.REQ,C.FLG(RS) :CLEAR REQUEST BIT 
51 012422 RSPOU3: 
2 012422 004737 015300 CALL SNDCMD SEND COMMAND TO UDA 
53 012426 016500 000044 RSPOUS: MOV C.TOT(RS) RO SET TIMEOUT 


ce --— + Oe ee eee ——-—— - -_-——- —_— 


! " CZUDEBO UDA=50 DISK ‘oro MACRO V04.00 14-APR-82 16:50:39 PAGE gf. 1 SEQ 0071 
GLOBAL SUBROUTINES SECTI 


54 012432 019501 MOV RS,R1 
55 012434 062701 90004 ADD #C.TO,R1 ;PUT TIME IN CONTROLLER TABLE 
| 56 012440 004737 015 12 CALL SEIT 6 
| 57 012444 000137 011756 JMP_RSPN ;NOW WAIT FOR END PACKET 
| 58 012450 122764 000201 000030 RSPERR: CMPB 70P, END+OP. GDS,HC.MPK+P.OPCD(R4) SEE IF GET DUST STATUS OPCODE 
| 59 012456 001237 BNE RSPERW 
60 012460 132764 000010 000037 BITB #DF.ACT,HC.MPK*P.DFLG(R4) IF bust i, LONGER RUNNING 
61 012466 001603 BEQ RSPTOE 3; REPO 
62 012470 042765 000050 000014 BIC #CT.STA*CT.MSG,C.FLG(RS) = ;CLEAR CONTROL "airs 
63 012476 032765 000200 000014 BIT #CT.TM2,C.FLG(RS) ;IF AT SECOND TIMEOUT 
64 012504 001413 BEQ 1$ 
65 012506 026465 000040 000046 CMP HC.MPK*P.DPI(R4),C.PRI(R5) ;COMPARE PROGRESS INDICATOR 
66 012514 001004 BNE 2$ 
67 012516 026465 000042 000050 CMP HC.MPK+P.DP1+2(R4) ,C.PRI+2(R5) ;COMPARE PROGRESS INDICATOR 
68 012524 001422 BEQ 4$ zRE PORT ERROR IF NOT CHANGED 
69 012526 042765 000200 000014 2%: BIC #CT.TM2,C.FLG(RS) CLEAR TIMEOUT 2 FLAG 
70 012534 032765 000100 000014 1$: BIT #CT.TM1,C.FLG(R5) TIF AT FIRST TIMEOUT 
71 012542 001406 BEQ 3$ 
72 012544 016465 000040 000046 MOV HC.MPK+P.DPI(R4),C.PRI(R5) ;GET COPY OF PROGRESS INDICATOR 
73 012552 016465 000042 000050 MOV HC.MPK+P.DP1+2(R4) ,C.PRI+2(R5) :GET COPY OF PROGRESS INDICATOR 
74 012560 012764 140000 000006 38: MOV #RG.OUNSRG.FLG.HC. het cna) 3GIVE MESSAGE BUFFER BACK TO UDA 
75 012566 000137 011756 JMP RSPN 
76 012572 000137 012076 4$: JMP RSPTOE 
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;RESPONSE REQUEST DISPATCH TABLE 
3 012576 012612 RSPDSP: .WORD QUEST 

4 012600 012664 -WORD DQUEST 

5 012602 013036 “WORD INFO 

6 012604 013126 -WORD TERM 

7 012606 013136 - WORD on 

8 012610 013146 -WORD SPECL 

9 000006 DSPSIZ=<. <RSPDSP>/2 


s QUESTION 
TQUESTION WITH DEFAULT ANSWER 


Z INFORMATION RES lo FOR OPERATOR 
:FATAL ERROR TERMINATION 


: SPECIAL 
LEGAL NUMBERS ARE LOWER THAN THIS 


SEQ 0072 


poo ene 
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Swe 


—SVONOUSWN—OVDOnNOuU 


Noy 2 ss 


NORMAL DUP RECEIVE DATA BUFFER DESCRIPTION 


sBYTE OFFSET FROM 
START OF BUFFER 


80 


$rewoacaoe See wee eee Dee emo we meee} 
: TWE } MESSAGE NUMBER 
pweeoeeeoeesoooosoeosososoososeses! 
: DATA BYTES : 
poe momen ne aaa ama Sasa eae nee naae aos ¢ 
: DATA BYTES : 
fe ae am a os om co ew SOD OH oH Seas aoa annaonan > 
: DATA BYTES : 
fae maser mar ena om nma nme wm aae aeneeoe } 
: DATA BYTES : 
¢ eee neonescoszre= Seweenonr ease nneoaaonae + 
: DATA BYTES : 
pomemrenwes ee oceres ron ne meen eeecee ao om 
: DATA BYTES § 
$e we SOT Dh Se oT ae DOE eee ey a om em en 
: DATA BYTES § 
$e eee ee rere es Sees eS ees eee nenaeee + 
: DATA BYTES : 
mmm nmee See DOD Bese Sw enBonwanoancaw + 
: DATA BYTES : 
$¢ emo mnewrenecean mene ano e meee Doom + 
: DATA BYTES : 
Pome Demo Me Sn ~E owe SEED SEES mee + 
: DATA BYTES : 
Premera Dawe DCE mE ome mw wee wo So eS a aD + 
Fee re BEEBE Ew EDO Seno eae = od 
: DATA BYTES : 
bw ewe wae wena See SBOE e sma d 


USED TO SELECT ROUTINE 
R4 CONTAINS THIS ADDRESS 


SEQ 0073 


oe ee ee Ce + ee ee C— =~ —— +----——- +- -—_ --_ — + _ 
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} sNORMAL DUP SEND DATA BUFFER DESCRIPTION GIVEN IN RESPONSE TO ABOVE PACKET 
3 BYTE OFFSET FROM 
4 se TAR T OF BUF F E R $¢ Dose en nm SeOB Bese eOeCe ese eseeeesezee $ 
; ; 0 ; DATA BYTES ; R2 CONTAINS THIS ADDRESS 
| : 3 2 DATA BYTES 
| 3 Qneueueeusessencessesenesesunese + 
| 9 ; 4 : DATA BYTES : 
j 1 0 Zz pase nwa ene cena ee eee eee mee Sh 
| 1 : 6 _DATA BYTES 
2 foam ewer aa emcee eeeor eae ase ennene + 
| 13 : 8 : “DATA BYTES : 
1 4 3 $a swemee ww OD GS SE SOD em OS SD eerecmooe=+} 
15 ; 10 : DATA BYTES L 
16 3 powewmmen seman oooa ene eae 1 om ae oe on oe me 
17 : 12 § _DATA BYTES : 
1 8 3 $a won na nae n ease we aa me oe ee a ee a a eS oo 
19 3 14 g ~ DATA BYTES : 
20 $ pfaasmoarnenereareannaan Benen eaemnacn + 
21 : 16 : DATA BYTES . 
22 3 boa ee oe Sense eae wea e eee sea seen = + 
23 ; 18 : DATA BYTES : 
24 g famosa a SSS SSSG GeBB eZ een eenae >} 
25 : 20 : DATA BYTES g 
26 3 foe om cw ae oe om Sees oe sone anes eeemaome= +} 
27 ; 22 : DATA BYTES . 
8 3 poems enaenr meaner mre net ene eae neeoee wea} 
30 ; . , 
31 : 
32 ; . 
33 ; 
34 3 . . 
35 : 
36 : $ewowweeeoeeeeeeeoooceoocecececn + 
37 : 80 : DATA BYTES : 
38 3 ft eter mam Dee ee see eee ene ese aeen —- 


| agdigias: K 
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013300 
000004 


000007 


MO OONAOUSWN—OOONOuUSwh— 


NNO) os 


000207 
012700 
005201 


003312 


;MESSAGE TYPE 1 
TANSWER QUESTION FOR DUP PROGRAM 
INPUT: 


QUEST: 


RS = ADDRESS OF CONTROLLER TABLE 
R4 = Anwth : TO DATA IN RECEIVE pap 
R3 = CHARACTER COUNT IN RECEIVE BUFFER 
Re ° POINTER TO SEND BUFFER (BUFFER IS CLEARED) 
ZOUTPUT: 
R1 = COUNT OF CHARACTERS IN yd BUFFER 
Z SET TO CONTINUE RUNNING + ROGRAM 
Z CLEAR TO STOP THE DUP PROGRAM 


~ GTDRVT :GET POINTER 9 Rae hs TABLE 
;BUMP POINTER + a NUMBER 


QUESTION NUMBER 
BEQ QUEO sBRANCH IF QUESTION NUMBER 0 
47 sIF NOT, SEE IF QUESTION NUMBER 7 


BEQ QUE7 
ERRDF 100,,ERR100 sANY OTHER NUMBER IS AN ERROR 


CLZ CLEAR Z TO STOP DUP PROGRAM 
RETURN 


MOV #DATEO,RO ;POINT TO DATE STRING 


INC R1 g COUNT re wmeoe-t 
rn. (RO)+, (R2)+ 


THEM IN OUTPUT BUFFER 
BNE QUEL UNTIL D 
RETURN ;RETURN bith Z SET 


"A NUL PCHARACTER FOUN 


CSERDF 
100 


0 
ERR100 


SEQ 0075 


cm ee te eee 
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] 
} MESSAGE TYPE 2 
| ; ‘ANSWER QUESTION FOR DUP PROGRAM WITH DEFAULT ANSWER 
| 5 : INPUT: 
é : RS = ADDRESS OF CONTROLLER TABLE 
? : Ra - POINTER TO DATA IN RECEIVE BUFFER 
8 : R3 = CHARACTER COUNT IN RECEIVE BUFFER 
9 ; RD = POINTER TO SEND GUFFER  (OUFFER 1 CLEARED) 
10 : R1 = ZERO 
11 OUTPUT: 
12 R1 = COUNT OF CHARACTERS IN SEND BUFFER 
13 : 2 SET TO CONTINUE RUNNING DUP PROGRAM 
1 : g PETAR TO STOP THE DUP PROGRAM 
16 012664 004737 013300 DQUEST: CALL GTDRVT GET DRIVE TABLE ADDRESS INTO RO 
17 012670 014403 MOV -(R4),R3 GET QUESTION NUMBER 
18 012672 020327 000006 CHP RS. sDaUESZ 
19 012676 101035 BHI DQUEX 
20 012700 006303 BeL RST 
21 012702 000173 012706 AMP. @DQUE PCR) 
32 012706 012772 DQUEJP: .WORD DQUEX  ; 0 (NOT USED) 
33 012710 012724 “WORD DOUNIT 1 ENTER UNIT NUMBER TO FORMAT 
24 012712 012772 “WORD DQUEX § : 2 (NOT USED) 
55 012714 012772 “WORD DQUEX  : 3 (NOT USED) 
36 012716 012776 "WORD DORFMT =: 4 USE EXISTING BAD SECTOR INFORMATION 
27 012720 013016 WORD DORSTR —; 5 DOWNLINE LOAD BAD SECTOR BLOCK INFORMATION 
28 012722 013026 "WORD DOCON 6 CONTINUE IF BAD BLOCK INFO INACCESSIBLE 
29 000006 DOUESZ=<<. DOVE IPS) 25=1 
31 ENTER UNIT NUMBER TO FORMAT 
33 012724 DQUNIT: PUSH RS 
012724 010546 MOV RS.-<SP) 
34 012726 005004 CLR R4 
35 012730 011003 MOV (RO).R3 —« GET - DRIVE NUMBER 
36 012732 ASSUME D-DRY £0 0 
37 012732 012700 000012 MOV #10.,RO  -;RADIX 10. 
38 012736 004757 014754 DQUNL1: CALL DIVIDE 
39 012742 PUSH R5 
012742 010546 MOV RS,-(SP) 
40 012744 005201 INC R1 
41 012746 005703 TST R3 
42 012750 001372 BNE DQUNL1 
43 012752 010100 MOV R1,RO 
44 012754 DOQUNL2: POP R5 
012754 012605 MOV (SP)+,R5 
45 012756 062705 000060 ADD #°0.R5 
46 012762 110522 MOVB R5.(R2)+ 
47 012764 005300 DEC R 
48 012766 001372 BNE DQUNL2 
49 012770 POP R5 
012770 012605 MOV (SP)+,RS 
50 012772 000264 DQUEX: SEZ 
51 012774 000207 RETURN 
53 012776 032737 000003 003210 DORFMT: BIT #SO.FMT,MODE 
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54 013004 
55 013006 
56 013012 
57 013014 
59 013016 
60 013024 


001410 
112712 
005201 
000766 


032737 
001370 


112712 
005201 
000756 


000131 


DOYES: 


000010 003210 DOQRSTR: 


000116 


DQCONT: 
DONO: 


BEQ DQNO 

MOVB #*Y,(R2) 
INC R1 

BR DQUEX 

BIT #SO0.STR,MODE 
BNE DQYES 

MOVB #°N,(R2) 
INC R1 

BR DQUEX 


SEQ 0077 
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1 
2 
3 
4 
5 
6 
? 
8 
9 
10 
11 
12 
aes a 
15 013036 016400 177776 
16 013042 001417 
17 013044 020027 000100 
18 013050 001420 
19 013052 005 002200 
20 013056 001007 
21 013060 005237 002200 
22 013064 004737 013300 
23 013070 010002 
24 013072 004737 013324 


0 7 
25 013076 004737 013244 


26 013102 012701 100000 
27 013106 000264 
4 013110 000207 
30 013112 
013112 104455 
013114 000145 
013116 000000 
013120 011130 
31 013122 000244 
32 013124 000207 


sMESSAGE TYPE 3 


SPRINT I 
INPUT: 


OUTPUT: 


INFO: 


INFOP: 
INFOX: 


INFOE: 


NFORMATION FROM DUP PROGRAM 


R5 = POINTER TO CONTROLLER TABLE 
R4 = POINTER TO DATA IN RECEIVE ahh 
R3 = CHARACTER COUNT IN RECEIVE BUFFER 
Re - tae TO SEND BUFFER (BUFFER IS CLEARED) 


R1 = BIT 15 SET TO PREVENT v yoo DATA TO DUP PROGRAM 
Z SET TO CONTINUE RUNNING DUP PROGRAM 
+1 MESSAGE NUMBER 


MOV eer’ RO 

B FOX ;IF ZERO, IGNORE IT 
CMP RO,4100 :IF OCTAL 100 

BEQ INFOE ; PRINT ERROR MESSAGE 


INC 
CALL_GTDRVT 
MOV RO,R2 
CALL HEADER 


CALL MESG PRINT THE MESSAGE 


cet #81T15,R1 RETURN A NEGATIVE BYTE COUNT 

RETURN RETURN WITH Z SET 

ERRDF 101,,ERR101 sANSWER WAS REJECTED BY DUP PROGRAM 
TRAP CSERDF 
-WORD 101 
-WORD 0 
«WORD ERR101 


CLZ RETURN WITH Z CLEAR TO STOP DUP PROGRAM 
RETURN 


SEQ 0078 
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! ZMESSAGE TYPE 4 

3 S TERMINATION MESSAGE 

5 3 INPUT : 

6 : R5 = POINTER TO CONTROLLER TABLE 

? : R4 = POINTER 72 DATA IN RECEIVE BUFFER 

® : R3 = CHARACTER COUNT IN RECEIVE BUFFER 

9 ; R2 = POINTER TO SEND BUFFER (BUFFER IS CLEARED) 
10 ; R1 = ZERO 

11 ‘OUTPUT: 

12 : 2 CLEAR TO TERMINATE DUP PROGRAM 

14 013126 004737 013036 TERM: CALL INFO sPRINT THE MESSAGE 

15 013132 000244 
16 013134 000207 RETURN ;RETURN 2 CLEAR TO TERMINATE DUP PROGRAM 


| ; Ct? 
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:MESSAGE TYPE 5 
TERROR TERMINATION MESSAGE 
: INPUT: 
: RS = POINTER TO CONTROLLER TABLE 

UFFER 
R2 = POINTER TO SEND BUFFER (BUFFER IS CLEARED) 


R1 = ZERO 
SOUTPUT: 
: Z CLEAR TO TERMINATE DUP PROGRAM 


O13178 set 013036 ERRTRM: CALL INFO 
013144 000207 RETURN sRETURN Z CLEAR TO TERMINATE DUP PROGRAM 


e@e Ge Ge Ge & 
r 
ww 
d 
o 
= 
> 
za 
> 
o 
“ 
mm 
z 
2 
2 
“4 
_ 
2 
Zz 
m 
Oo 
m 
ool 
= 
m 
@ 
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! zMESSAGE TYPE 6 
? :SPECIAL TYPE = READ FCT BLOCK FROM FILE 
5 : INPUT: 
6 : RS = POINTER TO CONTROLLER TABLE 
? : R4 = POINTER TO DATA IN RECEIVE BUFFER 
8 : R3 = CHARACTER COUNT IN RECEIVE BUFFER 
9 : R2 = POINTER TO SEND BUFFER (BUFFER IS CLEARED) 
10 : R1 = ZERO 
11 : OUTPUT: 
19 : 2 SET TO SEND DATA TO PROGRAM 
14 013146 023714 003206 SPECL: CMP FCTNUM, (R4) ; SEE IF DESIRED BLOCK IS IN MEMORY 
1§ 013152 001425 BEQ SPECLX IF $O, SEND TO DUP PROGRAM 
16 013154 002407 BLT SPECLR : IF LOWERED NUMBERED BLOCK IN MEMORY, 
17 GO READ NEXT BLOCK 
18 013156 SPECLC: CLOSE S OTHERWISE, START READING FROM BEGINNING AGAIN 
013156 104435 TRAP  C$CLOS 
19 013160 OPEN #FNAME 
013160 012700 003234 MOV #F NAME ,RO 
013164 104434 TRAP (CSOPEN 
20 013166 012737 177777 003206 MOV #=1,FCTNUM 
21 013174 012703 001000 SPECLR: MOV #512.,R3 | :GET BYTE COUNT IN A BLOCK 
22 013200 012701 002206 MOV #FCTBUF,R1 ;:POINT TO STORAGE AREA 
23 013204 SPECLL: GETBYTE (R1)# ;READ THE FILE 
013204 104426 TRAP C$GETB 
013206 110021 MOVB RO, (R1)+ 
24 013210 BNCOMPLETE SPECLE :PRINT ERROR IF NO MORE BYTES IN FILE 
013210 103005 BCC SPECLE 
25 013212 005303 DEC R5 :COUNT THE BYTES 
26 013214 001373 BNE SPECLL 
27 013216 005237 003206 INC PC TNUM :KEEP COUNT OF BLOCK IN MEMORY 
28 013222 000751 BR SPECL 
$6 013224 005212 SPECLE: INC (R2) sTELL DUP PROGRAR DATA NOT AVAILABLE 
31 013226 012762 002206 000002 SPECLX: MOV #FCTBUF,2(R2) :PUT ADDRESS OF DATA IN OUTPUT BUFFER 
32 013234 012701 000006 MOV #6,R1 sSEND 3 coups” TO DUP PROGRAM 
33 013240 000264 SEZ 
34 013242 000207 RETURN :RETURN WITH Z SET TO SEND DATA TO DUP PROGRAM 
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} sPRINT A MESSAGE IN THE RECEIVE BUFFER FROM THE DUP PROGRAM 
3 : INPUT: 
4 $ R4 = POINTER TO DATA IN RECEIVE BUFFER 
S output R3 = CHARACTER COUNT IN RECEIVE BUFFER 
4 : R - st TO CHARACTER AFTER MESSAGE IN RECEIVE BUFFER 
9 3 R1 = BIT 15 SET TO PREVENT SENDING DATA TO DUP PROGRAM 
10 ; RO = CONTENTS DESTROY 
3 ; Z SET TO CONTINUE RUNNING DUP PROGRAM 
13 013244 MESG: PRINT #CR 
013244 112700 000015 MOVB #CR,RO 
013250 004737 014476 CALL CPNT 
14 013254 112400 1$: MOVB (R4)+,R0 sPRINT CHARACTERS FROM DUP PROGRAM 
1§ 013256 001405 BEQ 2$ : DISCARDING LF AND NULL CHARACTERS 
16 013260 020027 000012 CMP RO,#12 
17 013264 001402 BEQ 2$ 
18 013266 PRINT RO 
013266 004737 014476 CALL CPNT 
19 013272 005303 2$: DEC R3 :COUNT THE CHARACTERS 
20 013274 003367 BGT 1$ 
21 013276 000207 RETURN 


---- -——- + ll ——- - - ee ee 
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} 3GTORVT 
? 3GET DRIVE TABLE ADDRESS FROM CONTROLLER TABLE 
5 ; INPUTS: 
6 ; R5 = CONTROLLER TABLE ADDRESS 
7 :OUTPUTS: 
8 ; RO - om OF FIRST DRIVE i AVAILABLE FOR TESTING 
16 ; (WITH DT.AVL BIT CLEAR 
11 013300 GTDRVT: PUSH R5 
013300 010546 MOV RS,-(SP) 
12 013302 062705 000020 ADD #C.DRO,RS 
13 013306 01250 GTDRVL: MOV (R5)+,RO 
14 013310 016037 000002 002074 MOV D.UNIT(RO) ,LSLUN 
15 013316 ASSUME DT.AVL EQ BIT15 
16 013316 100773 BMI GTDRVL 
17 013320 POP RS 
013320 012605 MOV (SP)+,R5 
8 013322 000207 RETURN 


—_— —-'——O—_—=”nn! aay ee OO 
i 
—5 


SEQ 0083 


[oo re ne es 
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4 
5 
6 
7 
8 
9 
10 
11 
12 
13 013324 
14 013332 
15 013334 
013334 
013336 
013340 
013344 
013350 
013352 
16 013354 
17 013354 
18 013354 
19 013356 
20 013362 
21 013364 
013364 
013370 
22 013374 
23 013400 


000001 


000002 
014650 


003212 


000035 
014476 
016636 


002012 


s HEADER 


PRINT “a HEADER IN FRONT OF EACH MESSAGE me DUP PROGR 


3A UDA_AD 


DRESS IS PRINTED IF 


AM. 
A IS IN HARDWARE P-TABLE. 


RE THAN ONE J 
ZA RUNTIME IS PRINTED IF A CLOCK IS BEING use TO TIME PROGRAM EXECUTION. 


INPUT: 


OUTPUT: 


HEADER: 


1$: 


2$: 
3$: 


RS = POINTER TO CONTROLLER TABLE 


RO = POINTER TO DRIVE TABLE 
PRINTED MESSAGE 


4 #1,LSUNIT 
PNTF MESSG,D.UNIT(R2),(R5),(R2) 


ASSUME C.UADR EQ 0 
ASSUME D.DRV EQ 0 


BR 2$ 

TST KW.CSR 
BEQ 3$ 
PRINT #CR 


CALL _RNTIME 
RETURN 


CALL 
PRINT RUNTIME IF A CLOCK IN USE 


PRINT UDA ADDRESS 


MOV (R2),=(SP) 
MOV (R5),-<SP) 


:IF MORE THAN ONE UNIT BEING TESTED 


SEQ 0084 


MOV D.UNIT(R2),-(SP) 
LPNTF 


JSR RI, 


WORD MESSG 
WORD PNT.CT 


z1F NO CLOCK BEING USED 
sBYPASS RUNTIME MESSAGE 


MOVB #CR,RO 


CPNT 


| ety H 7? 
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NonoPongnony a es 
w 


& WWWPnononerorn 


SOOoCCOoOoOCOoOoOoCoOSoOoOSoOoOo 
So 
Nm 


PEPER REE E Ee RRR EE 
RYSRUNSARORE 


BRR S 
NOUEWI 


112201 


000207 


013704 


014650 


013704 
013716 


sOSTRNG 
S FORMAT 


; CHARACTERS ENCLOSED IN QUOTES ARE TO BE PRINTED 


OF THE ASCIZ STRING IS AS FOLLOWS: 
AS THEY ARE. 


meet CODE IS A SINGLE LETTER FOLLOWED BY AN OPTIONAL DECIMAL 


ON - 


SOUTPUT 


; INPUTS: 


OUTPUTS: 


OSTRNG: 


NCONS: 


NCONF : 


OSTRE: 


PRINT OCTAL NUMBER. N iy Fae he SIZE oF BINARY ote PAS -y! 
IN PARAMETER IN BITS. MAY BE IN RANGE 1 TO 32. IF _N>16, TWO PARAMETER 
ees ont itis ONLY one WORD. LEADING ZEROS ARE PRINTED. 
PRINT a 3 mee DECIMAL NUMBER FROM N BIT PARAMETER. rd ZEROS 

ARE NOT NTED. A 16 BIT NUMBER EQUAL TO ZERO WILL PRINT ‘0°’. 
a gel MEX” NUMBER FROM PARAMETER OF N BITS. IF N>16 TWO PARAMETERS 

ARE rr OTHERWISE ONLY “ PARAMETER. LEADING ZEROS ARE PRINTED. 
PRINT N SPACES. N ASSUMED TO BE 1. 
ae NEW LINE (CR=LF SEQUENCE). N ASSUMED TO BE 1. 

PRINT N ASCII CHARACTERS FROM PARAMETERS, N ASSUMED TO BE 1. 

N/2 PARAMETER WORDS USED. 
EXECUTE ROUTINE #N. N MUST BE GIVEN AND DEFINED IN HOST PROGRAM. 


L_ CHARACTER MEANS END OF MESSAGE. A NULL AS FIRST CHARACTER IN STRING 


MUST BE IGNORED. 


A MESSAGE ACCORDING TO A FORMAT STRING 

R2 = ADDRESS OF START OF FORMAT STRING 

R4 = ADDRESS OF PARAMETERS 

R2 AND R4 UPDATED TO END OF STRING AND PARAMETERS 
ae ~— GET CONTROL CHARACTER 


EQ OSTRE EXIT IF NULL CHARACTER 
MOV #ERRC,RO 3GET ee gl al TO CHARACT 


ER TABLE 
CMPB R1,(RO) > COMPAR ACTER WITH TABLE ENTRY 
BEQ NCONF BRANCH IF MATCH FOUND 
TSTB (RO)+ rat re POINTER 
BNE NCONS CONTINUE SEARCH IF NOT END OF TABLE 
PNTF ERRME1 REPORT BAD CONTROL CHARACTER 
JSR _R1,LPNTF 
-WORD ERRME1 
-WORD PNT.CT 
BR OSTRE 
SUB #ERRC,RO GET INCREMENT INTO TABLE 
ASL R ;DOUBLE TO 


SL 
CALL @ERRD(RO) 
BR OSTRNG 
RETURN 


OUBL WOR 
DISPATCH TO PRINT ROUTINE 
GET NEXT 


[rn a 3 ee 2 ee 
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} CONTROL CHARACTER WAS A QUOTE. PRINT ALL CHARACTERS TO THE NEXT QUOTE. 
3 013452 112200 CON.QU: MOVB (nena RO :GET CHARACTER 
4 013454 120027 000042 CMPB R CHECK IF ENDING QUOTE 
5 013460 001403 BEQ CON Ox z1F SO, GO GET NEXT CONTROL CHARACTER 
6 OS eees PRINT RO PRINT THE CHARACTER 
0134 004737 014476 CALL CPNT 
| 7 013466 000771 BR CON.QU sCONTINJE PRINTING 
| : 013470 000207 CON.QX: RETURN 
| 19 CONTROL CHARACTER WAS AN A. PRINT ASCII CHARACTERS FROM PARAMETERS. 
12 013472 004737 014156 CON.A: CALL_GETCNT GET COUNT OF CHARACTERS 
13 013476 CON.A1: PRINT (R4)+ SPRINT THE CHARACTER 
013476 112400 MOVE (R4)+,RO 
013500 004737 014476 CALL CPNT 
14 013504 005301 DEC R1 sCOUNT THE CHARACTERS 
| 15 013506 001373 BNE CON.A1 SPRINT UNTIL COUNT REACHES ZERO 
16 013510 032704 000001 BIT #1,R4 CHECK IF R4& NOW ODD 
17 013514 001401 BEQ CON.A2 
18 013516 005204 INC z1F SO, INCREMENT TO NEXT EVEN ADDRESS 
i 013520 000207 CON.A2: RETURN NOW GET NEXT CONTROL CHARACTER 
$3 CONTROL CHARACTER WAS A D. PRINT DECIMAL NUMBER. 
23 013522 012701 000012 CON.D: MOV #10.,R1 LOAD RADIX 
24 013526 004737 014234 CALL_PNTNUM ;PRINT NUMBER 
$2 013532 000207 RETURN ;NOW GET NEXT CONTROL CHARACTER 
se CONTROL CHARACTER WAS AN H. PRINT HEX NUMBER. 


8 
29 013534 012701 
30 013540 004737 
31 013544 000207 


000020 
014234 


CON.H: 


MOV #16. .R1 
cmt PNTNUM 


ETURN 


LOAD RADIX 


PRINT NUMBER 
SNOW GET NEXT CONTROL CHARACTER 


SEQ 0086 
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GLOBAL SUBROUTINES SECTI 


! 
| } SCONTROL CHARACTER WAS AN 0. PRINT OCTAL NUMBER. 
3 013546 012701 000010 CON.O: MOV #8. .Rt ;LOAD RADIX 
4 013552 0047 014234 CALL PNTNUM PRINT NUMBER 
| 5 013556 ine RETURN “NOW GET NEXT CONTROL CHARACTER 
| 
| i :CONTROL CHARACTER WAS AN N. PRINT NEW LINE SEQUENCE. 
| 9 013560 004737 014156 CON.N: CALL GETCNT :GET COUNT 
10 013564 CON.Ni: PRINT “PRINT NEW LINE SEQUENCE 
013564 112700 000015 MOVB #CR,RO 
013570 004737 014476 CALL CPNT 
11 013574 005301 DEC RI COUNT THE SEQUENCES 
12 013576 001372 BNE CON.N1 
1$ 013600 000207 RETURN ‘NOW GET NEXT CONTROL CHARACTER 
12 :CONTROL CHARACTER WAS AN R. CALL A PRE-PROGRAMMED ROUTINE. 
17 013602 004737 014156 CON.R: CALL GETCNT :GET ROUTINE NUMBER 
18 013606 020127 000011 CMP R1,#ERRRSZ sCHECK IF DEFINED ROUTINE NUMBER 
19 013612 101004 BHI CON.R1 
20 013614 060101 ADD R1.R1 :DOUBLE COUNT TO GET WORD INDEX 
21 013616 004771 013660 CALL @ERRRTB=-2(R1) * CALL ROUTINE 
22 013622 000207 RETURN = NOW GET NEXT CONTROL CHARACTER 
. 23 013624 CON.R1: PNTF ERRME1 “REPORT BAD MESSAGE STRING 
013624 004137 014650 JSR R1.LPNTF 
013680 003654 “WORD ERRME1 
013632 000000 “WORD PNT.CT 
24 013634 POP R1 sFIX THE STACK 
013634 012601 MOV (SP)+,R1 
25 013636 000207 RETURN 
$s sCONIROL CHARACTER WAS AN S. PRINT SPACES. 
29 013640 004737 014156 CON.S: CALL GETCNT sGET COUNT 
30 013644 CON.S1: PRINT <#° > sPRINT A SPACE 
013644 112700 000040 MovB #* RO 
013650 004737 014476 CALL CPNT 
31 013654 005301 DEC R1 SCOUNT THE SPACES 
32 013656 001372 BNE CON.S1 
33 013660 000207 RETURN :NOW GET NEXT CONTROL CHARACTER 





-—- +--+ -- C+ SS eee —_-—— 
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| GLOBAL SUBROUTINES SECTION 


sERROR ROUTINE DISPATCH TABLE 
3 013662 013736 ERRRTB: .WORD CALRE sNOT USED 
4 013664 013736 «WORD CALRE sNOT USED 
5 013666 013736 eWORD CALRE sNOT USED 
6 013670 013750 ~WORD CALR4 sPRINT BASIC LINE WITHOUT UDA ADDRESS 
7 013672 914024 ~WORD CALRS PRINT BASIC LINE WITH UDA ADDRESS 
8 013674 014102 ~WORD CALR6 sCALL_ALTERNATE PRINT STRING IN PDP=11 MEMORY 
9 013676 014116 ~WORD CALR7 ;PRINT “REPLACE UDA MODULE M7161°° 
10 013700 014134 -WORD CALR8 PRINT ‘* UDASA CONTAINS XXXXXX"° 
11 013702 014152 -WORD CALR9 TREPRINT LAST NUMBER 
\¢ 000011 ERRRSZ=<.-ERRRTB>/2 
4 sBUILD ws TABLES 
15 : FIRST CONTAINING CONTROL CHARACTERS 
1g : SECOND CONTAINING ROUTINE ADDRESSES 
18 -MACRO BUILD 
19 ENTRY ‘*,CON.QU 
20 ENTRY A,CON.A 
21 ENTRY D,CON. 
ENTRY H,CON.H 
23 ENTRY 0,CON.O 
24 ENTRY N,CON.N 
25 ENTRY R,CON.R 
26 ENTRY S,CON.S 


27 -ENDM 


SE a a 


-———_-_ 
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GLOBAL SUBROUTINES SECTION 


J sHERE IS FIRST TABLE 

; -MACRO ENTRY ARG1 .ARG2 

5 “BYTE _**ARG! 

6 “NLIST 

f .ENDM 

9 013704 ERRC: BUILD | 
013704 042 -BYTE ' 
013705 = 101 -BYTE 'A 
013706 104 “BYTE 'D 
013707 = 110 “BYTE 'H 
013710 «= 117 -BYTE 'O 
013711 «= -116 YTE 'N 
013712 «= 122 “BYTE 'R 
013713 = 123 “BYTE 'S 

10 013714 000 “BYTE 0 

i ~EVEN 

13 sHERE 1S SECOND TABLE 

13 -M*RO ENTRY ARGI .ARG2 

17 “WORD _ARG2 

18 “NLIST 

19 -ENDM 

21 013716 ERRD: BUILD 
013716 013452 -WORD CON. QU 
013720 013472 -WORD CON.A 
013722 013522 “WORD CON.D 
013724 013534 “WORD CON.H 
013726 013546 “WORD CON.O 
013730 013560 “WORD CON.N 
013732 013602 “WORD CON.R 
013734 013640 “WORD CON. S 





FOLLOW WITH A NULL BYTE 


SEQ 0089 


ose 


sans egembaia§ ao a. to? 
ZUDEBO UDA~50 DISK FORMATTER MACRO V04.00 14-APR-82 16:50:39 PAGE 81 


| GL 


OBAL SUBROUTINES SECTION 


004137 014650 
003654 


000000 
000207 


;PRE=PROGRAMMED ROUTINES 1, 2 AND 3 


sNOT USED = PRINTS ERROR MESSAGE 
CALRE: PNTF ERRME1 


RETURN 


PRINT ERROR MESSAGE 


JSR _R1,LPNTF 
«WORD ERRME1 
«WORD PNT.CT 


SEQ 0090 


poe Ce ee ee — —E a _— a — 
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GLOBAL SUBROUTINES SECTION 


| 1 3PRE=PROGRAMMED ROUTINE 4 
2 SPRINT BASIC LINE FOR HOST PROGRAM ERROR WITHOUT UDA ADDRESS 
| i STHEN SWITCH TO EXTENDED FORMAT 
5 013750 CALR4: PNTB BASLN,#BASNO,#BAS ,#BAS ,#BAS 
013750 012746 004137 MOV #BAS ,-(SP) 
| 013754 012746 004137 MOV #BAS,-(SP) 
013760 012746 004137 MOV #BAS,-(SP) 
013764 012746 004064 MOV #BASNO,-(SP) 
013770 004137 014660 JSR _R1,LPNTB 
013774 004140 «WORD BASLN 
013776 000010 -WORD PNT.CT 
6 014 004737 016636 CALL_RNTIME 
7 014 PRINT #CR 
0140 112700 000015 MOVB #CR,RO 
014010 004737 014476 CALL CPNT 
8 014014 012737 014576 003226 MOV #PX,PTYPE 
9 014022 000207 RETURN 


SS > ae 
CZUDEBO UDA-50 DISK FORMATTER MACRO V04.00 14-APR=82 16:50:39 PAGE a3 SEQ 0092 
GLOBAL SUBROUTINES SECTION 








1 3PRE=PROGRAMMED ROUTINE 5 

¢ SPRINT BASIC LINE FOR HOST PROGRAM ERROR WITH UDA ADDRESS 

i sTHEN SWITCH TO EXTENDED FORMAT 

5 014024 CALR5: PNTB BASLN,#BASNO,#BASL2, (R5) ,#BAS ,#BAS 
014024 012746 004137 MOV #BAS,-(SP) 
014030 012746 004137 MOV #BAS,-(SP) 
014034 011546 MOV (R5),=(SP) 
014036 012746 004103 MOV #BASL2,-(SP) 
014042 012746 004064 MOV #BASNO,-(SP) 
014046 004137 014660 JSR R1,LPNTB 
014052 004140 WORD BASLN 
014054 000012 -WORD PNT.CT 

6 014056 004737 016636 CALL_RNTIME 

7 014062 PRINT &#CR 
014062 112700 000015 MOVE #CR,RO 
014066 004737 014476 CALL CPNT 

8 014072 012737 014576 003226 MOV #PX,PTYPE 

9 014100 000207 RETURN 


-———_—— ee ee 1 


| Ri Kael pp F 
| CZUDEBO UDA=50 DISK FORMATTER MACRO V04.00 14=APR=82 16:50:39 PAGE 84 SEQ 0093 


GLOBAL SUBROUTINES SECTION 


1 3PRE=PROGRAMMED ROUTINE 6 
; CALL ALTERNATE PRINT ROUTINE IN PDP=11 MEMORY 
4 014102 CALR6: PUSH R2 SAVE CURRENT STRING POINTER 
014102 010246 MOV R2,=(SP) 
5 014104 Ores MOV (R4)+,R2 GET NEW STRING POINTER 
6 014106 004737 013402 CALL_OSTRNG OUTPUT USING THIS STRING 
7 014112 ; POP R2 GET OLD POINTER BACK 
014112 012602 MOV (SP)+,R2 
8 014114 000207 RETURN NOW CONTINUE THE OLD STRING 


a ee 


_ >» 8 
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| GLOBAL SUBROUTINES SECTION 


1 3PRE=PROGRAMMED ROUTINE 7 
¢ sPRINT “REPLACE UDA MODULE M7161°' 
} 
4 014116 CALR7: PUSH R2 
014116 010246 
5 014120 012702 010204 MOV #XFRU,R2 
6 014124 004737 013402 CALL_OSTRNG 
7 014130 POP R2 
014130 012602 
8 014132 000207 RETURN 


MOV R2,=(SP) 


MOV (SP)+,R2 


SEQ 0094 


g ore pte a 
CZUDEBO UDA=50 DISK FORMATTER MACRO V04.00 14-APR-82 16:50:39 PAGE 86 SEQ 0095 
| GLOBAL SUBROUTINES SECTION 


1 :PRE=PROGRAMMED ROUTINE 8 
¢ PRINT °' UDASA CONTAINS XXXXXX"" 
4 014134 CALR8: PUSH R2 
014134 010246 MOV R2,=(SP) 
5 014136 012702 010153 MOV #XSA,R2 
6 014142 004737 013402 CALL OSTRNG 
7 014146 POP R2 
014146 012602 MOV (SP)+,R2 
8 014150 000207 RETURN 


poe ee 


poss F 8 
am UDA=50 DISK FORMATTER MACRO V04.00 14-APR=82 16:50:39 PAGE 87 
| GLOBAL SUBROUTINES SECTION 


1 $ REPRINT LAST NUMBER 
2 ‘ R4 => TABLE 
3 014152 005744 CALR9: TST =(R4) 

4 014154 000207 RETURN 


| 
| 
| 
| 


SEQ 0096 





‘eee Se | | ee ae - 
| CZUDEBO UDA=50 DISK FORMATTER MACRO V04.00 14-APR-82 16:50:39 PAGE P| SEQ 0097 
GLOBAL SUBROUTINES SECTION 


1 sGETCNT 

g :GET COUNT IN NEXT CHARACTERS OF STRING POINTED TO BY R2. 

4 sNUMBER WILL BE IN DECIMAL. IF NO NUMBER, RETURN A 

2 sDEFAULT OF 1. 

7 : INPUTS: 

8 8 R2 = POINTER TO ASCII STRING 

g OUTPUTS: 

10 3 R1 = NUMBER READ OR A ONE 

i} : R2 = POINTING TO CHARACTER AFTER NUMBER 

13 014156 GETCNT: PUSH RO 

014156 010046 MOV RO,-(SP) 

14 014160 005001 CLR R1 sSTART WITH ZERO COUNT 

15 014162 121227 000060 GETCNX: CMPB (R2),#'°0 sCHECK IF CHARACTER A DIGIT 
16 014166 103415 BLO GETCDN sBRANCH IF LOWER THAN ZERO 
17 014170 121227 000071 CMPB (R2),4'°9 

18 0141 101012 BHI GETCDN ;BRANCH IF HIGHER THAN NINE 
19 014176 006301 ASL R1 sMULTIPLY NUMBER BY 10 

20 014 010100 MOV R1,R0 : SAVE 2N 
21 014202 006301 ASL R1 ; COMPUTE 4N 

22 014204 3 ASL R1 ; COMPUTE 8N 

23 014206 ADD RO,R1 : 8N + 2N = 10N 
24 014210 11220 MOVB (R2)+,R0 :GET DIGIT FROM STING 

25 014212 162700 000060 SUB #°0,RO :GET RID OF ASCII 

26 014216 0600 ADD RO,R1 :ADD TO NUMBER 

27 014220 000760 BR GETCNX :GO0 TO NEXT CHARACTER 

28 014222 005701 GETCDN: TST R1 sCHECK IF NUMBER IS ZERO 
29 014224 001001 BNE GETCXX 31F ZERO, CHANGE 

30 014226 005201 INC R1 : TO DEFAULT OF ONE 

31 014230 GETCXX: POP RO 

014230 012600 MOV (SP)+,RO 

32 014232 000207 RETURN 


74 
200 0 
2 006301 
060001 
0 
01 
2 
6 
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GLOBAL SUBROUTINES SECTION 


} 3; PNTNUM 
3 :PRINT A NUMBER 
by 
5 : INPUTS: 
é : R1 = RADIX OF NUMBER 
7 : R2 = ASCII STRING TO COUNT OF BITS IN NUMBER 
| 8 a, = POINTER TO NUMBER (LOW WORD) 
10 : NUMBER IS PRINTED. LEADING ZEROS ARE PRINTED EXCEPT FOR 
11 : DECIMAL NUMBE 
12 ; RO = CONTENTS DESTROYED 
14 014234 010100 PNTNUM: MOV R1,RO :SAVE RADIX 
15 014236 004737 014156 CALL GETCNT ‘GET COUNT OF BITS 
16 014242 PNINUS: PUSH <R2,R3,R5> 
014242 010246 MOV R2,=(SP) 
014244 010346 MOV R3.-(SP) 
014246 010546 MOV R5.=(SP) 
17 014250 012403 MOV (R4)+,R3 :GET ONE PARAMETER WORD 
18 014252 005005 CLR RS SCLEAR STORAGE FOR OTHER 
19 014254 020127 000020 CMP R1,416. [MORE THAN 16 BITS IN NUMBER? 
20 014260 003401 BLE 
21 014262 012405 MOV (R4)+,R5 ZYES, GET SECOND PARAMETER WORD 
22 014264 1$: PUSH R4 
014264 010446 MOV R4,-(SP) 
23 014266 010504 MOV RS,R4 :PUT HIGH WORD IN R4 
24 014270 012702 000020 MOV #16. ,R2 *COMPUTE BITS NOT WANTED 
25 014274 160102 SUB R1,R2 BY SUBTRACTING BITS TO USE 
26 014276 00200 BGE 2$ 16. 
27 014300 062702 000020 ADD #16. ,R2 uF NEGATIVE, ADD 16 FOR FIRST WORD 
28 014304 001414 2$: BEQ 6$ [IF ZERO, NO BITS NEED BE CLEARED 
29 014306 012705 100000 MOV #B1T15,R5 *START MASK WITH SIGN BIT SET 
30 014312 005302 3$: DEC R2 ‘COUNT BITS IN MASK 
31 014314 001402 BEG 4$ 
32 014316 006205 ASR RS :SHIFT MORE BITS TO RIGHT 
33 014320 000774 R 3$ 
34 014322 020127 000020 4$: CMP R1,416. ;MORE THAN 16 BITS IN NUMBER? 
35 014326 003402 5$ 
36 014330 040504 BIC R5,R4 :YES, CLEAR IN HIGH WORD 
37 014332 000401 6$ 
38 014334 040503 S$: IC RS.R3 :NO, CLEAR IN LOW WORD 
39 014336 004737 014754 6$: CALL DIVIDE “DIVIDE BY RADIX IN RO 
40 014342 SH R5 *PUSH REMAINDER ON STACK 
014342 010546 MOV R5,=(SP) 
41 014344 005202 INE R2 :COUNT DIGITS ON STACK 
42 014346 005703 TST R3 [CHECK IF QUOTIENT IS ZERO 
| 43 014350 001372 BNE 6$ 
44 014352 005704 TST RG 
45 014354 001370 BNE 6$ 


SEQ 0098 


fee cena wrerta Ter ene tener erate 


_ CZUDEBO UDA-50 DISK — MACRO V04.00 14-APR-82 16:50:39 PAGE 18 


| GLOBAL SUBROUTINES SECT 


NN 
env 
3 
Nm 


— — os ss 4 2s 2 9 = Ss ss st 


sscscsss Sooooooooooooooo 
, at 
&* 
~m 
~“ 


N—SCO0eO Nous 
= 
oS 
So 
OW 
se 
oo 
nm 


Mrowy—a aoe 


014472 012602 
26 014474 000207 


000012 
000014 


000003 
014754 


000060 
014476 


000060 
000071 


000007 


014476 


7$: 


8$: 
9$: 


10$: 


11$: 


CMP RO,#10. zIF RADIX IS DECIMAL 
BEQ 10$ : JUST GO PRINT DIGITS ON STACK 
MOV R1,R3 ‘ OTHERW ISE COMPUTE NUMBER OF LEADING ZEROS 
SUB #12. ,R0 ‘DIVIDEND IS BITS IN NUMBER 
1 7s :DIVISOR IS, BITS PER DIGIT PRINTED 
CALL DIVIDE 
TST RS z1f REMAINDER NOT ZERO 
BEd 8s T INCREMENT QUOTIENT 
SUB R2,R3 ; SUBTRACT DIGITS ON STACK 
EQ 10$ 0 LEADING ZEROS IF ZERO 
PRINT #'°O PRINT A ZERO 
Move #°0,RO 
CALL CPNT 
DEC R3 
BNE 9$ ;REPEAT UNTIL COUNT REACHES ZERO 
POP RS :GET CHACACTER FROM STACK 
MOV (SP)+,R5 
ADD #°0.R5 sCNVERT TO ASCII DIGIT 
CMP RS,#'9 SIF GREATER THAN A 9 
BLE 11$ : CONVERT TO A OR HIGHER 
ADD #<*A="9=1>,R5 + FOR HEX DIGIT 
PRINT R5 ‘PRINT THE CHARACTER 
MOVB R5.RO 
CALL CPNT 
DEC R2 


sREPEAT FOR ALL DIGITS 

BNE 10$ : ON STACK 

POP <R4,R5,R3,R2> 
MOV (SP)+,R4 
MOV (SP)+,R5 
MOV (SP)+*,R3 
MOV (SP)+,R2 

RETURN 


+ — +--+ ee 


' 
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GLOBAL SUBROUTINES SECTION 


} sPRINT ONE CHARACTER 
? :CALL WITH MACRO PRINT 
| 5 014476 110037 003230 CPNT: MOVB RO,ERRCHR 
| 6 014502 PUSH R1 
014502 010146 MOV R1,-(SP) 
| 7 014504 012701 003612 MOV #ERRONE,R1 
8 014510 120027 000015 CMPB RO,ACR 
9 014514 001002 BNE 1$ 
10 014516 012701 003615 MOV #ERRNL,R1 
| 11 014522 000177 166500 1$: JMP aPTYP 
12 014526 PF : PRINTF R1,#ERRCHR 
014526 012746 003230 MOV #ERRCHR, (SP) 
014532 010146 MOV R1,-(SP) 
014534 012746 000002 MOV #2,°(SP) 
014540 010600 MOV RO 
014542 104417 TRAP F 
014544 062706 000006 ADD #6,SP 
13 014550 000435 BR CPNTX 
14 014552 PB: PRINTB R1,#ERRCHR 
014552 012746 003230 MOV #ERRCHR,-(SP) 
014556 010146 MOV R1,-(SP) 
014560 012746 000002 MOV #2,-(SP) 
014564 010600 V SP,RO 
014566 104414 TRAP CSPNTB 
014570 062706 000006 ADD #6,SP 
15 014574 000423 BR CPNTX 
16 014576 PX: PRINTX R1,4ERRCHR 
014576 012746 003230 MOV #ERRCHR,-(SP) 
014602 010146 MOV R1,-(SP) 
014604 012746 000002 MOV #2,-(SP) 
014610 010600 V SP,RO 
014612 104415 TRAP  (C$PNTX 
014614 062706 000006 ADD #6.SP 
17 014620 000411 BR CPNTX 
18 014622 PS: PRINTS R1,#ERRCHR 
014622 012746 003230 MOV #ERRCHR,=(SP) 
014626 010146 MOV R1,-(SP) 
014630 012746 000002 MOV #2,-(SP) 
014634 010600 MOV SP,RO 
014636 104416 TRAP  C$PNTS 
014640 062706 000006 ADD #6,SP 
19 014644 CPNTX: POP R1 
014644 012601 MOV (SP)+,R1 
20 014646 000207 RETURN 


_cUDEBO ‘UDA=50 DISK im MACRO V04.00 14-APR-82 16:50:39 PAGE E 93 SEQ 0101 
GLOBAL SUBROUTINES SECT 


PRINT FORMATTED MESSAGE 
‘CALL WITH MACRO PNT, PNTF, PNTB, PNTX, OR PNTS 


1 

2 

i 

§ 014650 012737 014526 003226 LPNTF: MOV #PF,PTYPE 

6 014656 000413 BR LPNT 

7 014660 012737 014552 003226 LPNTB: MOV #PB.PIYPE 

8 014666 000407 T 

9 014670 012737 014576 003226 LPNTX: MOV #PX,PTYPE 

10 014676 000403 BR LPNT 

11 014700 012737 014622 003226 LPNTS: MOV #PS,PTYPE 

12 014706 LPNT: PUSH <R2,R3,R4,R5> 
014706 010246 MOV R2,-(SP) 
014710 010346 MOV R3.=(SP) 
014712 010446 MOV R4,-(SP) 
014714 010546 MOV R5.=(SP) 

13 014716 012102 MOV (R1)+,R2 :GET ADDRESS OF STRING 

14 014720 010604 MOV SP,R4 ; COMPUT ; ADDRESS OF ARGUMENTS 

15 014722 062704 000012 ADD #10.,R4 WHICH ARE NOW ON STACK (IF ANY) 

16 014726 PUSH R1 *SAVE RETURN ADDRESS 
014726 010146 MOV R1,-(SP) 

17 014730 004737 013402 CALL OSTRNG :PRINT THE FORMATTED MESSAGE 

18 014734 POP <RO,R5,R4,R3,R2,R1> SRESTORE ALL REGISTERS 
014734 012600 MOV (SP)+,RO 
014736 012605 MOV (SP)+.R5 
014740 012604 MOV (SP)+.R4 
014742 012603 MOV (SP)+.R3 
014744 012602 MOV (SP)+.R2 
014746 012601 Vv (SP)¢,R1 

19 014750 062006 ADD (RO)+,SP sADJUST STACK POINTER over ARGUMENTS 

20 014752 000110 JMP aRO RETURN 


---- -----——- - — 


| 








CZUDEBO UDA-50 DISK FORMATTER MACRO V04.00 14-APR=82 16:50:39 PAGE & of 
GLOBAL SUBROUTINES SECTION 


1 sDIVIDE 
2 
3 DIVIDE A_32 BIT UNSIGNED NUMBER BY A 16 BIT UNSIGNED NUMBER. 
& REPLACE DIVIDEND WITH QUOTIENT AND RETURN REMAINDER. 
2 :WILL NOT CHECK FOR DIVIDE BY ZERO. 
7 SINPUTS: 
8 : R3 = LOW 16 BITS OF DIVIDEND 
9 : R4 - nice : BITS OF DIVIDEND 
10 RO = DIVISOR 
11 OUTPUTS: 
12 : R3 = LOW 16 BITS OF QUOTIENT 
13 ; R4 = HIGH 16 BITS OF QUOTIENT 
1° : R5 = REMAINDER 
16 014754 DIVIDE: PUSH R2 
014754 010246 MOV R2,-(SP) 
17 014756 012702 000040 MOV #32.,R2 SET UP SHIFT COUNT 
18 014762 005005 CLR RS zSTART WITH ZERO REMAINDER 
19 014764 006303 1$: ASL R3 ;SHIFT LEFT INTO R5 
20 014766 006104 ROL R4 
21 014770 006105 ROL R5 
22 014772 020005 CMP RO,RS sWILL DIVISOR GO INTO REMAINDER 
23 014774 101002 BHI 2$ SONLY SUBTRACT IF IT WILL 
24 014776 160005 SUB RO,RS5 SUBTRACT DI 
15000 005203 INC PUT A ONE INTO QUOTIENT 
26 015002 005302 2$: DEC R2 COUNT THE SHIFTS 
27 015004 001367 BNE 1$ 
28 015006 POP R2 
006 012602 MOV (SP)+,R2 


015 
29 015010 000207 RETURN 





SEQ 0102 


SCWCD NOUSWN—OCOVONOuUSWwhN— 


OD a at ot ot 
coocooecsesosS 


22 So Sos 
wvws 
# 


71 


.2 015070 
23 015074 





0427 

010501 
062701 
012746 


004737 
001445 


002164 
popes e 
000045 
000004 
177000 
000010 


000340 


000003 
000010 
015674 


000044 


;LOADDM 
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GLOBAL SUBROUTINES SECTION 


SEQ 0103 


[LOAD AND START A DM PROGRAM INTO A CONTROLLER 


; INPUTS: 


R5 = CONTROLLER TABLE ADDRESS 


DMPROG = POINTER TO START OF DM PROGRAM IN MEMORY 


OUTPUTS: 


LOADDM: 


IF LOAD eet Z CLEAR 
IF ERROR = Z SET 
MOV DMPROG,R 


R1 
MOVB DMTMO(R1),C.TOT(RS) 
CLRB C.TOT+1¢ 


(R5) 


MOV C.VEC(RS) ,R4 


AND CT.VEC,R4 


MOV 


CALL UDAINT 


BEQ LOADER 


ONTROLLER TABLE MARKED LOADED 


RI 
ADD 4C.JSR,R1 
SETVEC R4,R1,#PRIO7 


GET STORAGE ADDRESS OF DM PROGRAM 
GET TIMEOUT VALUE 


GET VECTOR OF UDA 


BIC #*C<CT.VEC>,R4 


GET INTERRUPT SERVICE LINK 
SET UP INTERRUPT VECTOR 


MOV #PRIO7,-(SP) 

MOV R1,-(SP) 

MOV R4,-(SP) 

MOV #3,-(SP) 

TRAP CS$SVEC 
#10,SP 


ADD 

s INITIALIZE UDA WITH SMALLEST 

; RING BUFFER AND INTERRUPTS ENABLED 
SBRANCH IF AN ERROR 
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| CZUDEBO_UDA~50 DISK FORMATTER MACRO VO4.00 14-APR-82 16:50:39 PAGE 95 SEQ 0104 

| GLOBAL SUBROUTINES SECTION 
| 1015076 017701 165062 MOV @DMPROG,R1 :GET SIZE OF PROGRAM 
| ¢ 915102 912700 900002 LOADB: MOV #OP.ESP.RO SBUILD EXECUTE SUPPLIED PROGRAM COMMAND PACKET 
| 015106 004737 015214 CALL BLDCMD 

& 015112 013764 002164 000124 MOV DMPROG,HC.CPK+P.UADR(R4) LOAD MAIN PROGRAM ADDRESS 

§ 015120 010164 000120 MOV R1,HC. CPKSP.BCNT (RG) : 

6 015124 013764 002164 000140 MOV DMPROG.HC.CPK#P.OVRL(R4) LOAD OVERLAY ADDRESS 

7 015182 067764 165026 000140 ADD aDMPROG,We. CPK*P. OVAL (R4) 
| 8B 015140 004737 015300 CALL SNDCM ;SEND COMMAND TO 
| 9 015144 004737 015420 CALL UAL TAG UAIT FOR MESSAGE RESPONSE 

10 015150 001417 BEG LOADER :ABORT IF NO RESPONS 

11 015152 032764 000037 000032 BIT #STMSK,HC.MPKSP.STS(RG)  sCHECK FOR ERRORS 

12 015160 001007 BNE LOADE! 

13 015162 042765 000024 000014 BIC #CT.CMD+CT.REQ,C.FLG(RS) ;CLEAR COMMAND OUTSTANDING FLAG 

14 015170 052765 000002 000014 BIS #CT-RN,C.FLGCR (RS) :SET DM PROGRAM RUNNING FLAG 











eta "a pone 
| CZUDEBO UDA=50 DISK FORMATTER MACRO V04.00 14-APR-82 16:50:39 PAGE 96 SEQ 0105 
| GLOBAL SUBROUTINES SECTION 

| 

| 


hee 


1 ;UDA FAILED TO DOWNLINE LOAD DM PROGRAM 

: 015200 LOADE1: ERRDF 34,,ERRO34 
015200 104455 TRAP CSERDF 
015202 000042 «WORD 34 
015204 ° 0 
015206 011060 «WORD _ERRO34 

4 015210 000264 LOADER: SEZ SET Z TO INDICATE ERROR OCCURRED 

5 015212 000207 RETURN 
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SEQ 0106 
GLOBAL SUBROUTINES SECT 


1 sBLDCMD 
BUILD A COMMAND IN COMMAND PACKET 
5 : INPUTS: 
6 ‘ RS = CONTROLLER TABLE ADDRESS 
7 RO = COMMAND CODE 
8 OUTPUTS: 
9 ; R4 = ADDRESS OF HOST COMM AREA 
10 : COMMAND PACKET CONTAINING REF NUMBER AND OPCODE. ALL OTHER 4 ay CLEARED. 
11 ; CMD peer NUMBER IN CONTROLLER TABLE INCREMENTED AND RESUL 
12 ; IN COMMAND PACKET. 
: RO = CONTENTS DESTROYED 
15 015214 BLDCMD: PUSH <R1,R0> 
015214 010146 MOV R1,-(SP) 
015216 010046 MOV RO,=(SP) 
16 015220 016504 000016 MOV C.RING(RS) ,R4 433 a ay'y OF HOST COMM AREA 
17 015224 010400 MOV R4, RO 
18 015226 062700 000100 ADD #HC.CEV,RO ‘COMPUTE ADDRESS A COMMAND ENVELOPE 
19 015232 012720 000060 MOV #HC.PSZ,(RO)+ [LOAD PACKET LENGTH 
20 015236 012701 001000 MOV #DUP, LOAD DIAG CIRCUIT IDENTIFIER 
21 015242 022716 000031 CMP #OP.MWR, (SP) z1F CODE IS MAINTENANCE WRITE 
22 015246 001002 BNE BLDCO : GET OTHER CIRCUIT IDENTIFIER 
23 015250 012701 177777 MOV #DIAG,R1 
24 015254 010120 BLDCO: MOV R1,(RO)+ sPuT IDENTIFIER a PACKET 
25 015256 012701 000030 MOV #<HC.PSZ>/2,R1 T WORDS TO CLEAR 
26 015262 005020 BLDC1: CLR (RO)+ SCLEAR PACKET 
27 015264 005301 DEC R1 
28 015266 001375 BNE BLDC1 
29 015270 POP HC.CPK+P.OPCD‘R4) sPUT OPCODE IN PACKET 
015270 012664 000114 MOV (SP)+,HC.CPK+P.OPCD(R4) 
30 015274 POP R1 sRESTORE R1 
015274 012601 MOV (SP)+,R1 
31 015276 000207 RETURN 
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GLOBAL SUBROUTINES SECTION 


} ; SNDCMD 

3 ;SEND A COMMAND TO THE UDA. 

& ;MARK BOTH PACKETS AVAILABLE TO THE 

5 UDA. SET D ISSUED BIT IN CONTROLLER TABLE AND INITIALIZE 

$ :TIMEOUT COUNTER . 

8 j INPUTS: 

9 R5 = CONTROLLER TABLE ADDRESS 

10 SOUTPU TS: 

1} : R4 = ADDRESS OF HOST COMM AREA 

13 

14 015300 SNDCMD: PUSH <RO,R1> 
015300 010046 MOV RO,=-(SP) 
015302 010146 MOV R1,-(SP) 

15 015304 016504 000016 MOV C.RING(RS) ,R4 LOAD R4 WITH HOST COMM AREA ADDRESS 

16 015310 005265 000052 INC C.REF(RS) : INCREMENT CMD REFERENCE NUMBER 

17 015314 016564 000052 000104 MOV C.REF(RS) ,HC.CPK+P.CRF(R4) ;PUT IN PACKET 

18 015322 012764 140000 000006 MOV #RG.OWN+RG.FLG,HC.MCT (RG) s MARK MESSAGE PACKET AVAILABLE 

19 015330 012764 100000 000012 MOV #RG.OWN,HC.CCT(R4) MARK COMMAND T A 

20 015336 005775 000000 TST a(R5) TELL UDA COMMAND IS THERE 

21 015342 052765 000004 000014 BIS #CT.CMD,C.FLG(RS) MARK COMMAND ISSUED 

22 015350 POP <R1,R0> 
015352 012600 MOV (SP)+,RO 

23 015354 000207 RETURN 


| 
015350 012601 MOV (SP)+,R1 


ie. 
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GLOBAL SUBROUTINES SECTION 


CRIPTOR IN COMMAND PACKET TO THE BUFFER 


MOV RO,=-(SP) 
MOV R1,-(SP) 
ADD START OF HOST COMM AREA TO OFFSET 
;PUT BUFFER ADDRESS IN COMMAND PACKET 
[PUT SIZE OF BUFFER IN COMMAND PACKET 
[PUT BUFFER ADDRESS IN R4 
:GET SIZE OF yt 2 IN WORDS 


SCLEAR ALL THE WORD 


MOV (SP)+,R1 
MOV (SP)+,RO 


} 3 CLRBUF 
3 CLEAR THE SPECIFIED DATA BUFFER IN THE HOST COMM AREA 
: :AND LOAD BUFFER DES 
6 : INPUTS: 
7 : RS = CONTROLLER TABLE ADDRESS 
8 : R4 = ADDRESS OF HOST COMM AREA 
9 RO = OFFSET INTO HOST COMM AREA TO DATA BUFFER 
10 ‘OUTPUTS: 
11 : DATA BUFFER CLEARED 
12 : COMMAND PACKET POINTING TO BUFFER 
13 : BYTE COUNT SET TO SIZE BUF 
" : R4 = ADDRESS OF DATA BUFFER 
16 015356 CLRBUF: PUSH <RO,R1> 
015356 04 
015360 010146 
17 015362 060400 ADD R4,RO 
18 015364 010064 000124 MOV RO,HC.CPK*+P.UADR(R4) 
19 015370 012764 000122 000120 MOV #HC.BSZ,HC.CPK+P.BCNT(R4) 
20 015376 010004 MOV RO,R 
21 015400 012701 000051 MOV #HC.BSZ2/2,R1 
22 015404 005020 CLRBFL: CLR (RO)+ 
23 015406 005301 DEC R1 
24 015410 001375 BNE CLRBFL 
25 015412 POP <R1,R0> 
015412 012601 
015414 012600 
26 015416 000207 RE TURN 


SEQ 0108 


F 9 
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GLOBAL SUBROUTINES SECTION 


} WAITMS 
? sWAIT FOR UDA TO RESPOND WITH A MESSAGE PACKET 
5 : INPUTS: 
6 RS = ADDRESS OF CONTROLLER TABLE 
7 ‘OUTPUTS: 
8 3 Z CLEAR IF NO ERROR 
10 3 Z SET IF ERROR, MESSAGE PRINTED 
11 015420 WAITMS: PUSH <RO,R1> 
015420 010046 MOV RO,-(SP) 
015422 010146 MOV R1,-(SP) 
12 015424 012700 000036 MOV #30.,R0 sSET TIME OUT VALUE OF en SECONDS 
13 015430 010501 MOV RS, =POINT TO TIME OUT COUNTE 
14 015432 062701 000040 ADD #C.T0,R1 
15 015436 004737 015612 CALL SET 
| 16 015442 011500 1$: MOV (R5),RO :GET ADDRESS OF UDAIP REGISTER 
17 015444 032765 000010 000014 BIT ACT. MSG, C.FLG(RS) sLOOK IF INTERRUPT OCCURRED 
| 18 015452 001030 BNE 3$ * BRANCH IF SO 
19 015454 016001 000002 MOV 2(RO),R1 ;LOOK AT UDASA REGISTER 
20 015460 001034 BNE 4$ ‘BRANCH IF ERROR CODE PRESENT 
21 015462 BREAK 
015462 104422 TRAP C$BRK 
22 015464 005737 003212 TST KW.CSR ;SEE IF A CLOCK ON SYSTEM 
23 015470 001764 BEQ 1$ 
24 015472 023765 003224 000042 CMP KW.EL+2,C.TOH(RS) sCHECK IF TIMEOUT HAS HAPPENED 
015500 191005 BHI 2$ 
26 015502 001357 BNE 1$ 
015504 023765 003222 000040 CMP KW.EL,C.TOCRS) 
103753 BLO 
29 015514 2$: ERRDF 36,,ERRO36 
015514 104455 


015516 000044 

015520 000000 
522 011066 

015524 012601 
5526 


530 
32 015532 000207 


POP <R1,R0> 


SEZ 
RETURN 


TRAP CSERDF 
-WORD 36 
WORD 

WORD 
MOV (SP)+,R1 
MOV (SP)+,RO 


0 
ERRO36 


en 
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GLOBAL SUBROUTINES SECTION 


1 015534 042765 000010 000014 3$: BIC #CT.MSG,C.FLG(RS) sCLEAR MESSAGE RECEIVED FLAG 
2 015542 POP <R1,R0> 
015542 012601 MOV (SP)+,R1 
015544 012600 MOV (SP)+,R0 
3 015546 000244 CLZ GIVE NO ERROR RETURN 
4 015550 000207 RETURN 
5 015552 4$: ERRDF 37,,ERRO37 
015552 104455 TRAP CSERDF 
015554 000045 -WORD 37 
015556 000000 -WORD 0 
015560 011100 -WORD ERRO37 
6 015562 POP <R1,R0> 
015562 012601 MOV (SP)+,R1 
015564 012600 MOV (SP)+,RO 
7 015566 000264 SEZ 
8 015570 000207 RETURN 
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GLOBAL SUBROUTINES SECTION 


015600 
015600 000002 


} sNXMI 
; TNON-EXISTANT MEMORY SERVICE ROUTINE 
| 5 : INPUTS: 
| 6 ; NXMAD SET TO ZERO 
| ? S OUTPUTS: 
8 : NXMAD SET TO ONES IF NON-EXISTANT TRAP OCCURED 
| 10 015572 BGNSRV NXMI 
11 
| 12 015572 012737 177777 002202 MOV #=1,NXMAD 
| 14 015600 ENDSRV 
| 


NXMI:: 


L10030: 
RTI 


SEQ 0111 
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| GLOBAL SUBROUTINES SECTION 


ee eee ee - 


1 ;UDASRV 
: UDA INTERRUPT SERVICE ROUTINE. MARKS UDA CONTROLLER TABLE THAT AN 
: 3 INTERRUPT HAS BEEN RECEIVED. 
6 TTHIS ROUTINE IS CALLED BY A 7, + UDASRV] INSTRUCTION FROM WITHIN 
7 i THE Ae ee TABLE. THE PC S$ D IN RO IS THE ADDRESS OF THE C.FLG 
8 D IN THE CONTROLLER TABLE. sTHEe STACK CONTAINS THE SAVED CONTENTS 
10 :OF RRO FOLLOWED BY THE INTERRUPTED PC AND PS. 
11 INPUTS: 
12 8 RO = ADDRESS OF C.FLG WORD IN CONTROLLER TABLE 
13 3 STACK = SAVED CONTENTS OF RO 
14 sOUTPUTS: 
15 ; CT.CMD CLEARED AND CT.MSG SET IN C.FLG WORD OF CONTROLLER TABLE 
18 3 RO = RESTORED FROM STACK 
18 015602 BGNSRV UDASRV 
015602 UDASRV:: 
19 015602 052710 000010 BIS #CT.MSG, (RO) sSET CT.MSG 
20 015606 POP RO sRESTORE RO 
015606 012600 MOV (SP)+,RO 
21 015610 ENDSRV 
015610 L10031: 
015610 000002 RTI 


SEQ 0112 
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GLOBAL SUBROUTINES SECTION 


1 :SETTO 

3 {SET TIMEOUT COUNTER TO SOME NUMBER OF SECONDS FROM CURRENT TIME. 

5 : INPUTS: 

6 : RO = NUMBER OF SECONDS FOR TIMEOUT 

g ‘ourpurst! ~ ADDRESS WHERE Two WORD TIME TO BE PUT 

9 : RO = CONTENTS DESTROYED 

10 : R1 = INCREMENTED BY 2 

12 sCOMPUTE CLOCK TICKS TIL TIMEOUT 

14 015612 SETTO: PUSH <R2,R3> 
015612 010246 MCV R2,-(SP) 
O15614 010346 MOV R3,-(SP) 

15 015616 00500 CLR R2 SCLEAR PRODUCT 

16 015620 013703 003220 MOV KW.HZ,R3 [GET MULTIPLICAND 

17 015626 006200 SETOO: ASR RO SHIFT MULTIPLIER TO RIGHT 

18 015626 103001 BCC SETO1 TIF A ONE BIT SHIFTED OUT 

19 015630 060302 ADD R3,R2 > ADD MULTIPLICAND TO PRODUCT 

20 015632 006303 SETO1: ASL R3 [DOUBLE THE MULTIPLICAND 

21 015634 005700 TST RO 

22 015636 001372 BNE SETOO ZCONTINUE UNTIL MULTIPLIER IS ZERO 

2 GET CURRENT TIME 

26 015640 013700 003222 SETO2: MOV Ku. EL.RO GET TIME 

27 015644 013703 003224 MOV KW.EL+2,R3 

28 025650 020037 003222 CMP RO,KW.EL IF CHANGED DURING RETRIEVAL 

29 015654 001371 BNE SETO2 : GET IT AGAIN 

31 SADD TIME TIL TIMEOUT 

33 015656 060200 ADD R2.RO ADD 

3 015660 005503 ADC R3 

36 :PUT RESULT IN STORAGE 

38 015662 010021 MOV RO, (R1)+ 

4 015664 010311 MOV R3. (R1) 

41 015666 POP <R3.R2> 
015666 012603 MOV (SP)+,R3 


015670 012602 MOV (SP)+,R2 
42 015672 900207 RETURN 


{ 
; 
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| GLOBAL SUBROUTINES SECTION 


sUDAINT 


3 FUNCTIONAL a ated te te 
SUBROUTINE TO INITIALIZE A UDA AND BRING IT ON-LINE. 
ot TED ARE CHECKED. AN ERROR MESSAGE IS REPORTED IF ANY ERROR 


: INPUTS: 
> ow ww. OF CONTROLLER TABLE. 
SIMPLICIT INP 
; C.RI NGCR RS) = ADDRESS GIVEN TO UDA AS gk OF RING BUFFER. 
fouTPUTS: OF RING STRUCTURE IS ONE ENTRY EAC 
; CONDITION Z = SET IF ANY ERROR REPORTED. CLEAR IF NO ERROR. 
; R4 = ADDRESS OF UDAIP REGISTER IN UDA 
; RS = UNCHANGED. 


sFILL HOST COMMUNICATION AREA WITH ALL ONES 


GET FIRST ADDRESS OF RING BUFFER 
GET SIZE OF RING BUFFER 
WRITE ONES TO BUFFER 
[COUNT THE WORDS IN BUFFER 
;LOOP UNTIL ENTIRE BUFFER WRITTEN 


rr 
Now WHS OONOUE WR OVONOUSwnN— 


015674 016502 000016 UDAINT: sd e. om we tree & R2 
015700 012703 000006 <HC. RSZ*24HC. 1S2>/2,R3 
015704 012722 177777 UDAI1L: MOV ei, (R2)+ 
015710 005303 EC R3 
24 015712 003374 BGT UDAIIL 
3D0 THE INITIALIZATION 
28 015714 004737 016110 CALL ae 
29 015720 103471 BCS UDA 


IEX 
000002 MOV (Ra)s. 2(R4) 


:D0 FIRST THREE STEPS 

GET OUT IF UDA MICROCODE REPORTED FAILURE 
sWRITE NEXT WORD TO UDASA REGISTER 

GET TRY COUNTER 


LOOK AT UDASA 

BEQ UDAIIC 

BPL UDAI1B 

ERRDF 24,,ERRO24 

TRAP CSERDF 
WORD 24 


-WORD 0 

-WORD ERRO24 
BR UDAIEX 

UDAI1B: DEC 


000002 


1 
15766 004737 016434 
15772 103444 


BNE 
UDAIIC: 
MOV 


| 
| 
0 
31 015726 012703 000310 MOV #200. .R3 
32 015732 016402 000002 UDAIIA: MOV 2(R4).R2 
BCS UDAIEX 


sWRITE 0 TO UDASA Ay 
READ FROM UDAIP (POLL) 
zWALT FOR STEP OR ERROR BIT 
T OUT IF UDA MICROCODE REPORTED FAILURE 


SEQ 0114 


[oon rn 
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GLOBAL SUBROUTINES SECTION 








| 
| 1 sCHECK HOST COMMUNICATION AREA FOR ALL ZEROS 
: 015774 016502 000016 UDAI2: MOV C.RING(RS) ,R2 :GET FIRST ADDRESS OF RING BUFFER 
4 016000 012703 000006 MOV #<HC. -RSZ*24HC. 1$2>/2,R3 GET SIZE OF RING BUFFER 
5 016004 005722 UDAI2L: TST (R2)+ :CHECK WORD IN BUFFER 
6 016006 001003 BNE UDAI2E ‘GO TO ERROR REPORTER IF NOT ZERO 
7 016010 005303 DEC R3 ‘COUNT THE WORDS IN BUFFER 
8 016012 003374 BGT UDAI2L SLOOP UNTIL ALL WORDS CHECKED 
h 016014 000405 BR UDAI3 
11 016016 UDAI2E: ERRDF 23,,ERRO23 :REPORT BUFFER NOT CLEARED 
016016 104455 TRAP  CSERDF 
016020 000027 .WORD 23 
016022 000000 -WORD 0 
016024 010670 .WORD ERRO23 
12 016026 000426 BR UDAIEX 
4 :SEND GO BIT TO UDASA REGISTER TO END INITIALIZATION 
16 016030 UDAI3: 
17 016030 016500 000006 MOV C.BST(RS) RO :GET BURST VALUE 
18 016034 006300 ASL RO ‘SHIFT TO POSITION 
19 016036 006300 ASL RO 
20 016040 052700 000001 BIS #SA.GO,RO :SET THE GO BIT 
21 0 010064 000002 MOV RO,2(R4) :SEND TO UDA 
22 016050 016501 000016 MOV C.RING(R5),R1 
23 016054 010161 000004 MOV R1,HC.MSG(R1) 
24 016060 062761 000020 000004 ADD #HC.MPK,HC.MSG(R1) 
25 016066 010161 000010 MOV R1,HC.CMD(R1) 
26 016072 062761 000104 000010 ADD #HC.CPK,HC.CMD(R1) 
27 016100 000244 CL2 ICLEAR Z AS NO ERROR INDICATION 
38 016102 000207 RETURN 
30 ZERROR RETURN 
32 016104 000264 UDAIEX: SEZ sSET 2 TO INDICATE ERROR OCCURRED 
33 016106 000207 RETURN 
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GLOBAL SUBROUTINES SECTION 


} ;UDAIST 
| 3 ZSTART THE INITIALIZATION PROCESS ON THE SELECTED UDA. 
| i ZSTOP BEFORE WRITING THE THIRD WORD SO UDA DOES NOT 
3 ZATTEMPT ANY UNIBUS TRANSFERS. 
7 3 INPUTS: 
8 : RS = ADDRESS OF CONTROLLER TABLE 
10 ;LOAD TABLE OF DATA TO SEND TO UDASA REGISTER 
12 016110 UDAIST: BREAK 
016110 104422 TRAP —CSBRK 
13 016112 PUSH R1 
016112 010146 MOV R1,=(SP) 
14 016114 016504 000004 MOV C.VEC(RS) .Ré 
15 016120 AND CT.VEC,R4 
016120 042704 177000 BIC #*C<CT.VEC>,R4 
16 016124 006204 ASR RG 
17 016126 006204 ASR RG 
18 016130 052704 100000 BIS #SA.STP,R4 SET STEP BIT IN DATA WORD 
19 016134 010437 016326 MOV R4,UDAID1 ZLOAD INTERRUPT VECTOR 
20 016140 016537 000016 016332 MOV C.RING(RS) ,UDAID2 ZLOAD MEMORY ADDRESS 
21 016146 062757 000004 016552 ADD #HC.MSG,UDAID2 : OF FIRST RESPONSE RING 
23 ;START THE INITIALIZATION BY WRITING TO UDAIP REGISTER 
25 016154 016504 000000 NOV CUADR(RS) ,RG :GET ADDRESS OF UDAIP REGISTER 
26 016160 005037 002202 CLR NXMAD CLEAR MEMORY ERROR FLAG 
27 016164 SETVEC #4, ANXMI ,#PRIO? SET UP VECTOR 
016164 012746 000340 MOV —« #PRIO7,-(SP) 
016170 012746 015572 MOV —- #NXMI., -(SP) 
016174 012746 000004 MOV ©: #4, =($P) 
016200 012746 000003 MOV —- #3. =<SP) 
016204 104437 TRAP —CSSVEC 
016206 062706 000010 ADD —«- #10, SP 
28 016212 005764 000002 TST 2(R4) SACCESS UDASA REGISTER 
29 016216 005014 CLR (R4) WRITE TO UDAIP 
30 016220 CLRVEC #4 ZGIVE UP THE VECTOR 
016220 012700 000004 MOV #4, RO 
016224 104436 TRAP CSCVEC 
31 016226 005737 002202 TST NXMAD SEE IF A MEMORY ERROR OCCURRED 
32 016232 001406 BEQ UDAISG 
33 016234 ERRDF 20,,ERRO20 
016234 104455 TRAP CSERDF 
016236 000024 WORD 20 
016240 000000 “WORD 
016242 010556 “WORD  ERRO2O 
34 016244 000261 SEC 
35 016246 000424 BR UDAISE 
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| GLOBAL SUBROUTINES SECTI 


| 
} ;SET UP LOOP PARAMETERS TO EXECUTE THE FOUR STEPS OF INITIALIZATION 
| 3 016250 012737 004000 016572 UDAISG: MOV #SA.S1,UDARSD :STORE RESPONSE MASK 
| 4 016256 012703 016524 MOV #UDAIDT,R3 :AND INDEX TO TABLE 
| 
| $ ;WAIT FOR AND CHECK RESPONSE DATA 
| 8 016262 004737 016434 UDAISL: CALL UDARSP {WAIT FOR STEP OR ERROR BITS 
9 016266 103414 BCS UDAISE ZEXIT IF ERR 
10 016270 004733 CALL a(R3)+ CALL_RESPONSE CHECKER FOR STEP 
11 015272 103412 BCS UDAISE :GET OUT IF ERROR 
12 016274 006337 016572 ASL UDARSD :SHIFT TO NEXT STEP BIT 
13 016300 032737 040000 016572 BIT #SA.S4,UDARSD iCHECK IF NOW AT STEP 4 
14 016306 001003 BNE UDAISX :GET OUT IF SO 
15 016310 012364 000002 NOV (R5)+,2(R4) ZWRITE DATA TO UDASA REGISTER 
1g 016314 000762 BR UDA :STAY IN LOO 
18 016316 000241 UDAISX: CLC CLEAR CARRY FOR NO ERROR INDICATION 
19 016320 UDAISE: POP R1 
016320 012601 MOV (SP)+,R1 
20 016322 000207 RETURN 


SEQ 0117 





1 
: 016324 
4 016326 
5 016330 
6 016332 
7 016334 
8 016336 
9 016340 
10 
11 
12 
13 
14 016342 
15 016346 
16 
17 
18 
19 
20 016350 
21 016354 
22 016356 
23 016362 
24 016366 
25 
26 
27 
28 
29 016370 
30 016374 
31 016400 
32 016404 
33 
34 
35 
36 
37 016406 
38 016410 
39 
40 
4] 
42 016414 
43 016416 
44 016420 
016420 
016422 
016424 
016426 
45 0164350 
46 016432 


016406 


012701 
000422 


013701 


000207 


004400 


016326 


177400 
010000 


016326 


137400 
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DATA TO BE SENT AND RECEIVED BY UDA INITIALIZATION 


UDAIDT: .WORD UDAIR1 
UDAID1: .WO 


«WORD UDAIR2 
UDAID2: .WORD 0 

«WORD UDAIR3 
UDAID3: .WORD SA.TST 
eWORD UDAIR4 


sFIRST WORD RESPONSE CHECK ROUTINE 
if WORD TO 


HIR TO UDASA 
SFOURTH WORD RESPONSE CHECK ROUTINE 


RESPONSE CHECK FOR FIRST WORD FROM UDASA 
ZCHECK FOR PROPER CONTROLLER TYPE 


UDAIR1: MOV #SA.S1+*SA.DI,R1 
BR UDAIRC 


SET STEP Lh BIT 


NOW COMP: 


sRESPONSE CHECK FOR SECOND WORD FROM UDASA 
CHECK FOR ECHO OF INTI AND VECTOR 


UDAIR2: a UDAID1,R1 


BIC #177400,R1 
BIS #SA.S2,R1 
BR UDAIRC 


GET WORD SENT TO UDASA 
7GET HIGH 8 BITS 


RESPONSE CHECK FOR THIRD WORD FROM UDASA 
sCHECK FOR ECHO OF MESSAGE AND COMMAND RING LENGTHS 


UDAIR3: sty UDAID1,R1 


sSET STEP 2 BIT 
;NOW COMPARE 


sGET WORD SENT TO UDASA 
8 BITS 


77400,R1 :JUST LOW 
BIS aSA. $3,R ?SET STEP 3 BIT 
BR UDAIRC [NOW COMPARE 


RESPONSE CHECK FOR FOURTH WORD FROM UDASA 


CHECK FOR ECHO OF PURGE AND LFAIL BITS 


UDAIR4: MOV R2,R 


BIC Meets. $4+SA.MCV>,R1 
;COMPARE EXPECTED DATA IN R1 WITH ACTUAL DATA IN R2 


COMPARE THE DATA 
EXIT IF COMPARED CORRECTLY 


UDAIRC: CMP R1,R2 
BEQ UDAIRX 
ERRDF 25,,ERRO25 


SEC 
UDAIRX: RETURN 


GET RESPONSE FROM UDA 
KEEP MICROCODE VERSION AND STEP 4 


;REPORT ERROR 


TRAP CSERDF 
WORD 25 
-WORD 0 
-WORD ERRO2S 


SEQ 0118 


-—_—— Se. 
; 
| 
i 


004737 
012601 
033764 
001024 


16474 104422 


FUN $00 GNOUFWAN—OCOOONOurwre- 


Normrnnn— Ae So os 


26 016402 
104455 


01 
37 o18sc2 000407 


100000 
000012 


000040 
015612 
016572 
003212 
003224 


003222 
000002 


016572 


000002 


000042 


000040 
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; UDARSP 


IwAIT FOR UDA TO RESPOND WITH DATA _IN UDASA REGISTER. 

EITHER STEP OTL AMINAT ion IN LOCATION UDARSD OR ERROR BIT 
AN ERROR MESSAGE WILL BE PRINTED IF THE UDA DOES NOT RESPOND 
:IN 10 SECONDS OR IF ERROR SETS. 


S INPUTS: 
: UDASRD = MASK OF STEP BIT TO LOOK FOR 
: R5 = ADDRESS OF CONTROLLER TABLE 
iets = ADDRESS OF UDAIP REGISTER 
: ERROR MESSAGE IF TIME OUT ON RESPONSE OR ERROR BIT SETS 
: R2 = DATA FROM UDASA REGIST 
: CARRY SET IF ERROR BIT SETS OR TIME OUT 
UDARSP: PUSH R1 


a R1,-(SP) 


ak #SA.ERR,UDARSD SET ERROR BIT IN -y 


V #10. RO 7SET UP FOR 10 SECOND TIMEOUT 
MOV R5,R :POINT TO COUNTER IN CONTROLLER TABLE 
ADD #C.TO,R1 
CALL SETTO 
OP R1 


MOV (SP)+,R1 


UDARS1: BIT UDARSD,2(R4) ;LOOK AT ERROR AND STEP BIT 
oe nese BRANCH IF EITHER SET 
TRAP CSBRK 
are ett the SEE IF CLOCK ON SYSTEM 
on ‘s" Ett, C.TOH(RS) CHECK IF TIME OUT OCCURRED 
BNE UDARS1 
CMP a EL,C.TOCRS) 
BLO U ARsi 
1$: MOV oR R2 GET REGISTER CONTENTS 
ERRDF 533, (ERROZ2 REPORT TIME OUT ERROR 
TRAP CSERDF 
WORD 22 
-WORD 0 
-WORD ERRO22 


BR UDARSE 


SEQ 0119 


es pignepepesiantimiege 

D 10 
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GLOBAL SUBROUTINES SECTION 


1 SEQ 0120 


1 CHECK IF ERROR BIT SET 
3 016544 016402 000002 UDARS2: MOV 2(R4) ,R2 GET REGISTER CONTENTS 
4 016550 100006 BPL_UDARSX sEXIT IF ERROR NOT SET 
5 016552 ERRDF 21,,ERRO21 sREPORT ERROR INFO 
016552 104455 TRAP CSERDF 
016554 000025 «WORD 21 
016556 000000 WORD 0 
016560 010570 «WORD ERRO21 
6 016562 000261 UDARSE: SEC 
4 016564 000207 RETURN 
m sNORMAL EXIT 
11 016566 000241 UDARSX: CLC CLEAR CARRY AS NO ERROR INDICATION 
i 016570 000207 RETURN 
Hy ;LOCATION FOR STEP BIT MASK 
16 016572 000000 UDARSD: .WORD 0 ;LOAD BY CALLING ROUTINE 


C+ OO > re ee 


10 
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j 
| } CLOG 
| ? COMPUTE LOGARITHMIC VALUE OF NUMBER TO BASE 2. 
| 5 INPUTS: 
| 6 RO = LOGARITHM TO BE CONVERTED 
| 7 ‘OUTPUTS: 
| 8 : R1 = VALUE OF 2 RAISED TO POWER OF INPUT NUMBER 
| 10 016574 CLOG: PUSH RO 
016574 010046 MOV RO,-(SP) 
11 016576 005001 CLR RI :SET UP ZERO START VALUE 
12 016600 000261 SEC ‘WITH CARRY READY TO SHIFT IN 
13 016602 006101 CLOGLP: ROL R1 :SHIFT TO LEFT 
14 016604 005300 EC RO UNTIL RO 
15 016606 100375 BPL CLOGLP : GOES NEGATIVE 
16 016610 POP RO 
016610 012600 MOV (SP)+,RO 
17 016612 000207 RETURN 


DIES A a EE RO EE ED NS 


eemnei meth «tes ; x 
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GLOBAL SUBROUTINES SECTION 


3 SEQ 0122 


5 skwitl 

z CLOCK INTERRUPT SERVICE ROUTINE 

5 016614 BGNSRV KW11I 
016614 KWITI:: 

6 016614 062737 000001 003222 ADD #1,KW.EL sCOUNT THE INTERRUPT 

7 016622 005537 003224 ADC KW.EL+2 

8 Bceee 012777 000105 164356 MOV #KWOUT. ,aKW.CSR RESTART THE CLOCK 

9 0166 ENDSRV 
016634 L10032: 
016634 000002 RTI 


10 
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_ GLOBAL SUBROUTINES SECTI 


J sRNTIME 
; “PRINT RUNTIME 
| 5 ; INPUTS: 
| 6 ; KW.EL = CONTAINS ELAPSED TIME 
7 KW.HZ = HERTZ OF CLOCK 
8 SOUTPUTS: 
9 : IF CLOCK ON SYSTEM: 
| 10 : RUNTIME HH:MM:SS °° PRINTED 
4 ; IF NO CLOCK: ONE SPACE IS PRINTED 
13 016636 005737 003212 RNTIME: TST Ku. CSR :CHECK IF A CLOCK PRESENT 
14 016642 001465 BEQ R [BRANCH IF NOT 
15 016644 PUSH “RO, mas, R4,RS> 
01 010046 MOV RO,=(SP) 
016646 010346 MOV R3,-(SP) 
016650 0104 MOV R4.=(SP) 
016652 010546 MOV R5,-(SP) 
16 01 013703 003222 MOV KW.EL,R3 :GET ELAPSED TIME 
17 016660 013704 003224 MOV KW.EL+2,R4 
18 016664 013700 003220 MOV KW.HZ,RO :GET SPEED OF CLOCK 
19 016670 004737 014754 CALL DIVIDE [COMPUTE SECONDS OF ELAPSED TIME 
20 016674 012700 000074 MOV #60. .RO iNOW DIVIDE BY 60 
21 016700 004737 014754 CALL DIVIDE 0 COMPUTE MINUTES 
22 016704 PUSH R5 ‘SAVE REMAINDER AS SECONDS 
016704 010546 MOV RS,=(SP) 
23 016706 004737 014754 CALL DIVIDE :DIVIDE BY 60 AGAIN 
24 016712 PNT RNTIM,R3 *PRINT HOURS 
016712 010346 MOV R3,-(SP) 
016714 004137 014706 JSR R1.LPNT 
016720 003620 “WORD RNTIM 
016722 000002 “WORD PNT.CT 
25 016724 020527 000011 CMP RS,#9. z1F MINUTES 9 OR LESS 
26 016730 003004 BGT 1$ 
27 016732 PRINT #°0 :PRINT A LEADING ZERO 
016732 112700 600060 MOVB #°0. RO 
016736 004737 014476 CALL CPN 
28 016742 1$: PNT RNTIM1,R5 sNOW PRINT MINUTES 
016742 010546 MOV RS,-(SP) 
016744 004137 014706 JSR R1,LPNT 
016750 003643 “WORD RNTIM1 
016752 000002 “WORD PNT.CT 
29 016754 POP R5 :GET SECONDS 
016754 012605 MOV (SP)+,RS 
30 016756 020527 000011 CMP RS,#9. z1f 9 OR LESS 
31 016762 003004 BGT 2$ 
2 0167 PRINT #°0 :PRINT A LEADING ZERO 
016764 112700 000060 MOVB #0. RO 
016770 004737 014476 CALL CPN 
33 016774 2s: PNT RNTIM2,R5 :NOW PRINT SECONDS 
016774 010546 MOV RS,-(SP) 
016776 004137 014706 JSR R1.LPNT 
017002 003651 .WORD RNTIM2 
017004 000002 “WORD PNT.CT 
34 017006 POP <R5,R4,R3,RO0> HOURS IN R3 
| 017006 012605 MOV (SP)+,RS 


j 
—— 





| 
i 
! 
' 
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017010 


012604 
Bisons 


12600 


112700 
004737 
000207 


000040 
014476 


RNTIMX: PRINT <#* > 


RETURN 
ENDMOD 


H 10 
E 11 


4-1 


PRINT A Sr..cE 


MOV (SP)+*,R4 
MOV (SP)+,R3 
MOV (SP)+,RO 


MOVB #° ,RO 
CALL CPNT 


SEQ 0124 


oo OC an ee eee ——— - a a — — . 


aig I 
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115 SEQ 0125 


1 -SBTTL PROTECTION TABLE 
; 017030 BGNMOD 


p++ 
; THIS TABLE IS USED BY THE RUNTIME SERVICES 
; TO PROTECT THE LOAD MEDIA. 


_ 
NOUSWN=| OVOOVNOuUs 

oO 

_ 

“ 

oO 

WwW 

oO 


BGNPROT 
, 017 LSPROT:: 
12 017030 177777 -1 sOFFSET INTO P-TABLE FOR CSR ADDRESS 
13 017032 177777 -1 sOFFSET INTO P=TABLE FOR MASSBUS ADDRESS 
: 017034 177777 ~) sOFFSET INTO P-TABLE FOR DRIVE NUMBER 
; 017036 ENDPROT 


J 10 
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SEQ 0126 
INITIALIZE SECTION 
~SBTTL INITIALIZE SECTION 
i++ 
4 : THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
2 ; AT THE BEGINNING OF EACH PASS. 
7 s 
8 017036 BGNINIT 
9 017036 LSINIT:: 
10 017036 READEF #EF.START sCHECK IF STARTED BY OPERATOR 
017036 012700 000040 MOV #EF .START,RO 
017042 104447 TRAP CSREFG 
11 017044 BCOMPLETE INIT1 ; If NOT, 
17 103415 BCS INIT 
12 017046 READEF #EF .RESTART 
17046 012700 000037 MOV #EF .RESTART,RO 
17052 104447 TRAP CSREFG 
13 017054 BCOMPLETE INIT1 
17054 103411 Bcs INIT1 
14 017056 READEF #EF . CONTINUE 
017056 012700 000036 MOV #EF .CONTINUE ,RO 
017062 104447 TRAP CSREFG 
15 017064 BCOMPLETE INIT1 
017 103405 BCS INIT1 
16 017066 READEF #EF.PWR 
017 012700 000034 MOV #EF .PWR,RO 
0170 104447 TRAP CSREFG 
17 017074 BCOMPLETE INIT1 
0170 103401 Bcs INIT1 
18 017076 INITQT: DOCLN ; ABORT PROGRAM 
017076 104444 TRAP CSOCLN 
19 017100 012700 000003 INIT1: MOV #SO.FMT,RO ;BUILD MODE oant FROM SOFTWARE QUESTIONS 
20 017104 030037 002144 BIT RO,SFPTBL :SEE IF REFO 
21 017110 001011 BNE INIT2 BRANCH IF .s 
22 017112 012700 000004 MOV #S0.CNS,RO ‘SEE IF RECONSTRUCT 
23 017116 030037 002144 BIT RO,SFPTBL 
24 017122 001004 BNE INIT2 ; BRANCH IF SO 
25 017124 006300 ASL RO ;SEE IF RESTOR 
26 017126 ASSUME SO.STR EQ SO.CNS*2 
27 017126 030037 002144 BIT RO,SFPTB 
28 017132 001761 BEQ INITOT :IF NOT, ary PROGRAM 
29 017134 010037 003210 INIT2: MOV RO,MODE + SAVE MODE FLAGS 
30 017140 005737 003312 TST DATEO :SEE IF ALREADY ASKED FOR DATE 
31 617144 001002 BNE INITS 
32 017146 004737 020012 CALL DATE z1f NOT, GET IT NOW 
33 017152 INIT3: BRESET sRESET ALL UNITS 
017152 104433 TRAP CSRESET 
34 017154 MEMORY FFREE sRESET START OF FREE eats 
017154 104431 TRAP CSMEM 
017156 010037 002146 MOV RO, FFREE 
HH 017162 017737 162760 002150 MOV aFFREE.FSIZE sRESET SIZE OF FREE MEMORY 
* s INITIALIZE CLOCK 
39 000105 KWOUT.=105 :DATA TO SEND TO KW11 TO START CLOCK 
40 017170 005037 003212 CLR KW.CSR :MARK CLOCK AS NOT ON SYSTEM 


a -_— 
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41 017174 
0 


005037 
005037 


012700 
104462 


103413 


012700 
104462 


103407 
005037 


012037 
013746 


012777 


003222 
003224 


000114 


600120 


003212 
014650 
003212 


003220 
003214 


000003 


000010 
000105 


163674 


KYES: 


CLR KW.EL 

CLR KW.EL+2 
CLOCK L,RO 
BCOMPLETE KYES 


CLOCK P,RO 


BCOMPLETE KYES 


CLR KW.CSR 
PNTF NOCLOCK 


BR KNO 
MOV (RO)+,KW.CSR 
MOV (RO)+,KW.BRL 


oKW.HZ 
SETVEC KW.VEC,#KW111,KW.BRL 


MOV #KWOUT. ,aKW.CSR 


Kk 10 


z°LEAR ELAPSED TIME 
3SEE IF AN L CLOCK PRESENT 
MOV 


STORE DATA RETURNED 


SET THE VECTOR 


START THE CLOCK 


BCS 
sSEE IF A P CLOCK PRESENT 
MOV 


BCS KYES 
:IF NEITHER, CLEAR CSR STORAGE WORD 


SEQ 0127 

#°L,RO 
TRAP CSCLCK 

KYES 

#°P,RO 
TRAP CSCLCK 
JSR_R1,LPNTF 
-WORD NOCLOCK 
-WORD PNT.CT 
MOV KW.BRL,-(SP) 
MOV #kW111,-(SP) 
MOV KW. VEC ,-(SP) 
MOV #3,-(SP) 
TRAP CSSVEC 
ADD #10,SP 


croc ne ee 2 - Se ee 
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INITIALIZE SECTION 


| 
| 1 s INITIALIZE CONTROLLER TABLE STORAGE WITH A WORD OF ZEROS 
: 017316 Or aret 002146 002156 MOV FFREE,CTABS STORE START OF CONTROLLER TABLES 
4 017324 0050 162626 CLR aCcTABS ;ZEROS MARKS END CONTROLLER TABLES 
2 017330 003037 002160 CLR CTRLRS ZCLEAR CONTROLLER COUNT 
| ‘ :GET A P-TABLE FROM DRS 
9 017334 005002 CLR R2 sLOGICAL UNIT NUMBER IN R2 
10 017336 INIT4: GPHARD R2,RO GET POINTER TO A P=TABLE 
017336 010200 MOV R2,RO 
017340 104442 TRAP CS$GPHRD 
11 017342 BNCOMPLETE NXTTAB IGNORE IF NO TABLE RETURNED 
12 017342 103075 BCC NXTTAB 
\? SEE IF A CONTROLLER TABLE ALREADY EXISTS FOR CONTROLLER IN P=-TABLE 
15 017344 013703 002156 MOV CTABS,R3 :GET ADDRESS OF CONTROLLER TABLES 
16 017350 005713 INITS: TST (R3) ZCHECK IF ANY MORE TABL 
17 017352 001416 BEQ NEWTAB ;BUILD NEW TABLE IF FOUND ZERO WORD 
18 017354 021013 CMP (RO), (R3) sCHECK IF SAME UNIBUS ADDRESS 
19 017356 ASSUME C.UADR EQ 0 
20 017356 ASSUME HO.UBA EQ 0 
21 017356 001450 BEQ SAMTAB ;CHECK TABLE IF ALREADY EXISTS 
22 017360 016301 000004 MOV C.VEC(R3),R1 GET VECTOR FROM EXISTING CONTROLLER TABLE 
23 017364 042701 177000 BIC #*C<CT.VEC>,R1 
24 017370 026001 00002 CMP HO.VEC(RO),R1 SEE IF DIFFERENT VECTOR 
25 017374 001002 BNE 1$ 
26 017376 000137 017776 JMP SAMVEC sERROR, CAN*T HAVE TWO UDA*S WITH SAME VECTOR 


27 017402 062703 000054 1$: ADD #C.SIZE,R3 sMOVE TO NEXT TABLE 
28 017406 000760 BR INITS 








M 10 
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INITIALIZE SECTION 


| 
| 


} BUILD A CONTROLLER TABLE 

3.017410 012701 000026 NEWTAB: MOV #C.SIZE/2,R1 GET WORDS IN it TABLE 
4 017414 004737 011346 CALL ALOCM ALLOCATE SPACE FOR IT 

5 017420 011021 MOV yg hgeg pg UNIBUS ADDRESS 

6 017422 010221 MOV R2,(R1)+ UNIT NUMBER 

? 017424 016004 000004 MOV_HO.BRL(RO) ,R4 GET BR LEVEL 

8 017430 000304 SWAB_R4 7SWAP TO HIGH BYTE 

9 017432 006104 ROL R4 SHIFT ONE MORE TO LEFT 

10 017434 056004 000002 BIS HO.VEC(RO) ,R4 ;ADD VECTOR ADDRESS 

11 017440 010421 MOV R4,(R1)+ : TO TABLE 

12 017442 016021 000006 MOV HO. BST (RO) . (R1)+ 
13 017446 012721 004037 MOV #4037, (R1) sPUT CUSR RO,UDASRVIJ 

14 017452 012721 015602 MOV #UDASRV, (RID+ NTO TABLE 

15 017456 012703 000020 MOV #16.,R3 [CLEAR POINTERS TO DRIVE TABLES, 
16 : TIMEOUT COUNTER, FLAGS, REF. NUMBER 
17 017462 005021 INIT7: CLR (R1)+ 

18 017464 005303 DEC R3 
19 017466 001375 BNE INIT7 LOOP TIL ALL CLEARED 
20 017470 005237 002160 INC CTRLRS COUNT THE CONTROLLER 

21 017474 005011 CLR (R1) :CLEAR TABLE END MARKER 
22 017476 000417 BR NXTTAB NOW GO TO NEXT P-TABLE 


pele lelelelololojl=) 
a ae ds 
NSN NNN 
panne 


000137 


005202 
023702 
003274 


012701 
004737 
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000004 


000002 
000004 
000006 


017726 


002012 


000001 
011346 


1$: JMP CTABER 
sGET NEXT P-TABLE 
NXTTAB: INC R2 


N 10 
1 SEO 0130 


;SHOULD BE SAME CONTROLLER, CHECK THAT OTHER PARAMETERS MATCH 
SAMTAB: MOV HO.BRL(RO) ,R4 
SWAB_R4 


:GET BR nyt FROM oon ovtt 
3 SHIFT "ONE MORE TO LEFT 
ADD VECTOR ADDRESS 
sCOMPARE WITH CONTROLLER TABLE 
COMPARE BURST RATES 


FATAL ERROR IF NOT SAME 


ROL R4 
BIS HO. VEC (RO) 4R 
CMP R Ra, C.VEC( Rss 


BN 
CMP at eons C.BST(R3) 
BEQ NXTTAB 


z INCREMENT LOGICAL UNIT NUMBER 


CMP LSUNIT,R2 [CHECK IF GOT ALL TABLES 
BGT INIT4 :1F NOT, GO BACK FOR NEXT 
MOV #1,R1 ALLOCATE SPACE FOR ZERO END WORD 


CALL ALOCM AFTER CONTROLLER TABLES 


81 
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CZUDEBO 
INITIALIZE SECTION 
: 
4 


005002 


010200 
104442 


103040 
013703 
3 


00077 3 


002156 


000054 


s;NOW BUILD DRIVE TABLES 


CLR R2 
INIT8: GPHARD R2,RO 


BNCOMPLETE INIT14 


FIND CONTROLLER TABLE 


MOV $,R3 
INIT10: CMP {ROD eR) 
BEQ INITI1 


ADD AC. $126. R3 
BR INIT10 


LOGICAL UNIT NUMBER IN R2 
3GET POINTER TO A P=TABLE 
he 
3 IF NOT AVAILABLE, GO GET en 


R2,RO 
CS$GPHRD 


INIT14 


GET ADDRESS “ane TABLES 


;CHECK IF SAME UNIBUS A 
BRANCH IF TABLE FOUND 
MOVE TO NEXT TABLE 


SEQ 0131 


lin ing ells oglligh tee php se fo 
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INITIALIZE SECTION 


| 
| 


1 sBUILD DRIVE TABLE 
: 017604 012701 000015 INIT11: MOV #D.SIZE/2,R1 sGET SIZE OF ORIVE TABLE 
| 4 017610 004737 011346 CALL _ALOCM sALLOCATE SPACE FROM FREE MEMORY 

5 ; RO POINTS TO P-TABLE 

6 : R1 POINTS TO DRIVE TABLE 

7 : R3 POINTS TO CONTROLLER TABLE 

8 ; ne IS_UNIT NUMBER 

9 017614 010337 003250 MOV R3,TEMP 7 SAVE plage TABLE ADDRESS 

10 7 IN CASE AN ERROR IS DETECTED 

11 017620 062703 000020 ADD #C.DRO,R3 BUILD POINTER TO C.DR yy IN atl g TABLE 
\¢ 3 oee 012704 000010 MOV #8. ,R4 3GET MAX COUNT OF DRIVES ON ONE CONTROLLER 
13 017630 005713 INIT12: TST (R3) sCHECK IF ENTRY CONTAINS POINTER TO DRIVE TABLE 
14 017632 001411 BEQ INIT13 

15 017634 026033 000010 CMP HO.LDR(RO) ,a(R3)+ :CHECK DRIVE NUMBER IN DRIVE TABLE 

16 017640 001002 BNE 1$ 

17 017642 000137 017742 JMP_MLDRER 31F SAME, TWO P-TABLES POINT TO SAME DRIVE 
18 017646 005304 1$: DEC R4 COUNT DRIVES 

19 017650 001367 BNE INIT12 :IF wea DRIVE — EXIST, 

20 017652 000137 017760 JMP TOOMER THEN REPORT ERR 

21 017656 010113 INIT13: MOV R1,(R3) 3 LOAD DRIVE yey POINTER 
22 017660 016021 000010 MOV HO.LDR(RO),(R1)+ OAD DRIVE NUMBER 

23 017664 010221 MOV R2,(R1)+ LOAD UNIT NUMBER 


Soc wes EE 


D1 
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005¢0¢ 


NMC CONOUSWwh— 


as 


017712 he 
104441 


720 104435 


017722 104432 
017724 000524 


ne SSS SSS SSS SSS SS sss sss hs recess 7 . 


002012 


GO TO NEXT DRIVE TABLE 
INIT14: ae! R2 ; INCREMENT LOGICAL UNIT NUMBER 


P LSUNIT,R2 + CHECK K_IF GOT ALL TABLES 
BGT INIT8 :I1F NOT, GET NEXT TABLE 
3SAVE CURRENT PARAMETERS TO FREE MEMORY 
INIT15: MOV FFREE,FMEM SAVE START “ODRESS 
MOV FSIZE,FMEMS zSAVe SIZE 
INITXX: SETPRI #PRIOO : SET RUNNING PRIORITY — 
TRAP 
CLOSE MAKE SURE DATA FILE IS sa 
EXIT INIT 
TRAP 
- WORD 


SEQ 0133 


#PRI00,RO 
CSSPRI 


C$CLOS 


CSEXIT 
L10034-. 


—_—_--——--—-- - ee 


_ INITIALIZE SECTION 


010305 
104454 
000001 
000000 
010430 
104444 
013705 


104454 
000002 


000000 
010446 


104444 


013705 
104454 


000003 
000000 
010464 


104444 


010305 
104454 
000010 
010540 
000000 


104444 
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003250 


003250 


£1 
E 1 


1 
23 


Soe eeke to VECTORS, BR LEVELS OR BURST ye FOR ONE CONTROLLER 


CTABER 
ERRSF 1,,€RROO1 
DOCLN 


TWO P=TABLES FOR SAME DRIVE 
ALDRER: MOV TEMP, 
ERRSF 2,,ERROO2 


DOCLN 


:GET CONTROLLER ADDRESS 


3GET CONTROLLER ADDRESS 


3;MORE THAN EIGHT DRIVES SELECTED ON ONE CONTROLLER 
GET CONTROLLER ADDRESS 


TOOMER: MOV TEMP,RS 
ERRSF 3,,ERROO3 


DOCLN 


TWO UDA’S USE THE SAME VECTOR 


SAMVEC: MOV R3,R 
ERRSF a 2RROOB 


DOCLN 


GET CONTROLLER ADDRESS 


— 


0 
ERROO1 
CSOCLN 


CSERSF 
2 


0 
ERROO? 
CSDCLN 


CSERSF 
3 


0 
ERROOS 
CSDCLN 


CSERSF 
ERROOS 
0 


CSDCLN 


‘ ne ee ee - _ — -— —--—-—— —- 


" CZUDEBO UDA~50 DISK FORMATTER MACRO VO4.00 14=APR=82 16:50:39 PAGE 124 SEQ 0135 
| INITIALIZE SECTION 


1 020012 DATE: GMANID DATEQ,DATEI,A,-1,1,11.,YES :GET DATE 
020012 104443 TRAP CSGMAN 
020014 000406 BR 
020016 003276 «WORD DATE! 
020020 000152 -WORD TSCODE 
020022 003526 WORD DATEQ 
| 020024 177777 «WORD - 
020026 000001 WORD TSLOLIM 
| 0200 000013 -WORD TSHILIM 
| 02003 10000S: 
¢ 020032 012705 003276 MOV #DATEI,RS ;GET POINTER 70 ANSWER 
020036 121527 000060 CMPB (R5) ,#°0 
4 020042 103443 BLO DERR 
5 020044 122527 000071 DAY: CMPB (R5)+,#°9 
6 020050 101040 BHI DERR 
7 020052 121527 000055 CMPB (R5) ,#*= 
8 020056 001406 BEQ DAS1 
9 02 121527 000060 CMPB (R5),#'0 
10 020064 103432 BLO DERR 
11 02 122527 000071 CMPB (R5)+,#°9 
12 020072 101027 BHI DE 
13 020074 122527 000055 DAS1:  CMPB (R5)+,#°= 
14 020100 001024 BNE DERR 
15 020102 012704 000014 MOV #12. ,R4 ;GET NUMBER OF MONTH 
16 020106 012703 003353 MOV #MONTHS,R3 GET POINTER TO MONTH NAMES 
17 020112 005000 MONT: CLR RO 
18 020114 121523 CMPB (R5),(R3)+ 
19 020116 001401 BEQ MON2 
20 020120 005200 INC RO 
21 020122 126523 000001 MON2: CMPB 1(R5),(R3) 
22 020126 001401 BEQ MON3 
23 020130 005200 INC RO 
24 020132 126523 000002 MONS: CMPB 2(R5),(R3)+ 
25 020136 001401 BEQ MONS 
26 020140 005200 INC RO 
27 020142 005700 MONS TST RO 
28 020144 001407 BEQ MONS 
29 020146 005304 DEC R4 
30 020150 001360 BNE MON1 
31 020152 DERR: PNTF DATEX 
020152 004137 014650 JSR _R1,LPNTF 
020156 010330 -WORD DATEX 
020160 000000 -WORD PNT.CT 
32 020162 000713 BR DATE 
33 020164 012701 003312 MONS: MOV #DATEO,R1 ;GET POINTER TO _ FOR FORMATTER 
34 020170 010403 MOV R4,R3 7GET COPY OF MONTH NUMBER 
35 020172 020327 000012 CMP R3,#10. ; IF 10 OR GREATER 
36 020176 103404 BLO MON6 
37 020200 112721 000061 MOVB #°1,(R1)* ;PUT A ‘'I’’ IN OUTPUT 
38 020204 162703 000012 SUB #10. ,R3 
39 020210 062703 000060 MON6: ADD #°0,R3 ry hd MONTH NUMBER TO ASCII 
40 020214 110321 MOVB R3.(R1)¢ PUT A NUMBER IN — PUT 
41 020216 112721 000055 MOVE #*=,(R1)+ ;PUT A ‘'="* IN OUTP 
42 020222 062704 003416 ADD #DAYS=1,R4 GET POINTER TO DAYS IN MONTH 
4 2 INDEXED BY ee OF MONTH 
44 020226 012703 003276 MOV #DATEI,R3  ;GET POINTER TO DATE INPU 
45 020232 005000 CLR RO 





46 020234 
47 020240 
48 020242 
49 0202464 
50 020246 
51 020250 
52 020252 
53 020254 


000055 


000060 


000003 
000055 


000060 
000071 


000060 


000002 
000004 
003554 
000706 
003436 


DAY1: 


DAY2: 


YER1: 


YER2: 


YER3: 


YER4: 


YERS: 
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CZUDEBO UDA-50 DISK FORMATTER MACRO V04.00 14-APR=82 16:50:39 PAGE 1de=1 
INITIALIZE SECTION 


CMPB (R3),#'= 


BEQ DAY2 
on (R3),(R1)* ;PUT DAY CHARACTER IN OUTPUT 


ADD R2,RO 
a. (R3)s, R2 

UB #°0,R2 
ADD R2. RO 


D 
nove ashe” o(R1)+ 


B RR 

CMP RO,#1900. 

BLO DERR 

BR YERS 

MOV #YEAR19,R2 
CMP RO,#70. 

BHIS YER4 

MOV #YEAR20,R2 
TSTB (R2) 

BEQ YERS 

MOVB (R2)+,(R1)+ 
BR YER4 

MOVB (R5)+,(R1)+ 
BNE YERS 

RETURN 


RS 
wy (R5) ,#'= ~ FOR *‘="" ange DAY 


OUTPUT 
3GET copy OF INPUT STRING POINTER 


SEQ 0136 


pa = ne ee Se ee 


| lee er er oe 
 CZUDEBO UDA=S0 DISK FORMATTER MACRO V04.00 14-APR=82 16:50:39 PAGE 124-2 SEQ 0137 
INITIALIZE SECTION 





103 
104 020450 ENDINIT 
L10034: 
020450 104411 TRAP CSINIT 


ee 





AUTODROP S 


| 
| 
| 
| 


_ 
N= COVOONOUSWwhr— 


4 





ak 
CZUDEBO UDA=50 DISK FORMATTER MACRO V04.00 14-APR-B2 16:50:39 PAGE 125 


-SBTTL AUTODROP SECTION 


p++ 
: THIS CODE IS EXECUTED op ge AFTER THE INITIALIZE CODE IF 
; THE ‘‘ADR’’ FLAG WAS SET. THE UNIT(S) UNDER TEST ARE CHECKED TO 
: SEE IF THEY" WILL RESPOND. THOSE THAT DON'T ARE IMMEDIATELY 
; DROPPED FROM TESTING. 


BGNAUTO 
LSAUTO:: 


ENDAUTO 
L10035: 
TRAP CS$AUTO 


SEQ 0138 


‘ea NS EE er —_—-+---— —_——- — 


" c7uDeB0 UDA=50 DISK FORMATTER MACRO V04.00 14-APR=82 16:50:39 


! CLEANUP CODING 


| 


14 
15 020462 


SECTION 


104435 
104433 


104412 


-SBTTL CLEANUP CODING SECTION 


3+4 


3 THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
: AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 


BGNCLN 


CLOSE 
BRESET 


ENDCLN 


ENDMOD 


LSCLEAN: : 


CLOSE DATA FILE 
RESET ALL UDAS 


TRAP 
TRAP 


110036: 
TRAP 


SEQ 0139 


CS$CLOS 
CSRESET 


CSCLEAN 


a 


a ne 


“ees 


" CZuDeB0 UDA-5S0 DISK FORMATTER MACRO V04.00 14-APR=82 16:50:39 PAGE 127 SEQ 0140 
| TEST 1: DUP PROGRAM DRIVER 
} .SBTTL TEST 1: DUP PROGRAM DRIVER 
; 020462 BGNMOD 
5 020462 BGNTST 
02046 T1:: 
6 020462 032737 000003 003210 BIT #SO.FMT MODE 
7 020470 001157 BNE TIFMT 
8 020472 
020472 104450 TRAP —CSMANI 
9 020474 BCOMPLETE 1160 
020474 103406 BCS 1160 
10 020476 ERRSF 10,,ERRO10 
020476 104454 TRAP —CSERSF 
020500 000012 WORD 10 
020502 000000 “WORD 0 
020504 010526 “WORD ERRO10 
11 020506 EXIT TST 
020506 104432 TRAP — CSEXIT 
020510 000350 WORD 110037=. 
12 020512 032737 000010 003210 11G0: BIT #S0.STR,MODE 
13 020520 001432 BEQ TICNS 
14 020522 023727 002012 000001 CMP LSUNIT,#1 
15 020530 001406 BEQ TIRST 
16 020532 ERRSF 9,,ERROO9 
020532 104454 TRAP _CSERSF 
020534 000011 “WORD 9 
000000 “WORD 0 
020540 010514 “WORD ERROOS 
17 020542 EXIT TST 
020542 104432 TRAP —CSEXIT 
1g 02054 000314 WORD 110037=. 
19 020546 TIRST: PNTF FILNAM 
020546 004137 014650 JSR R1,LPNTF 
020859 010347 “WORD FILNAM 
020554 000000 “WORD PNT.CT 
20 020556 GMANID FILNAQ,FNAME,A,-1,1,10.,NO GET FILE NAME 
020556 104443 TRAP  CSGMAN 
020560 000406 BR 10000$ 
020562 003234 “WORD FNAME 
020564 000142 “WORD  TSCODE 
020566 003556 "WORD FILNAQ 
020570 177777 "WORD 1 
020572 000001 "WORD TSLOLIM 
020574 000012 “WORD TSHILIM 
020576 10000S: 
21 020576 OPEN #FNAME 
020576 012700 003234 MOV —s #FNAME,RO 
020602 104434 TRAP  CSOPEN 
22 020604 000511 BR TIFMT 
53 020606 013705 002156 TICNS: MOV CTABS,RS 
24 020612 010504 TISER1: MOV RS.R4 
25 020614 062704 000020 ADD #C.DRO,R4 
56 020620 012703 000010 MOV 48. 
57 020624 011402 TISER2: MOV (R45 .R2 GET DRIVE TABLE POINTER 


28 020626 001474 BEQ TISERN 





‘Wo ai sal pana UNNI paeshgeseeainieliniapenans Seeger 





, CZUDEBO UDA=50 DISK FORMATTER MACRO V04.00 14-APR-82 16:50:39 pact 13701 SEQ 0141 
TEST 1: DUP PROGRAM DRIVER 

29 020630 PNTF SERNUM,D.UNIT(R2),(R5), (R2) 

020630 011246 MOV (R2), ~($P) 
| 020632 011546 MOV (R5),<¢ 

020634 016246 000002 MOV D. intr tee), -(SP) 
020640 004137 014650 JSR RIL 
020644 004151 . WORD Freel 
020646 000006 .WORD PNT.CT 

30 020650 ASSUME C.UADR EQ 0 

31 020650 ASSUME D.DRV EQ 0 

32 020650 TISER3: GMANID SERNQ, TEMP,A,-1,1,20..NO :GET SERIAL NUMBER 
020650 104443 TRAP  C$GMAN 
020652 000406 BR 10001$ 
020654 003250 .WORD TEMP 
020656 000142 .WORD TS$CODE 
020660 003610 -WORD SERNQ 
020662 177777 <WORD =1 
020664 000001 .WORD TSLOLIM 
020666 000024 .WORD TSHILIM 
020670 10001$: 

33 020670 012701 003250 MOV #TEMP,R1 

34 020674 005000 CLR RO 

35 020676 105711 TISER4: TSTB (R1) 

36 020700 001410 BEQ TISERS 

37 020702 005200 INC RO 

38 020704 121127 000060 CMPB (R1),4#°0 

39 020710 103416 BLO T1SER? 

40 020712 122127 000071 CMPB (R1)+,4°9 

41 020716 101767 BLOS T1SER4 

42 020720 000412 BR T1SER7 

43 020722 020027 000024 TISERS: CMP RO,#20. 

44 020726 103422 BLO T1SER8 

45 020730 012701 003250 MOV #TEMP,R1 

46 020734 012700 003326 MOV #HIGHEST,RO 

47 020740 122120 TISER6: CMPB (R1)+,(RO)+ 

48 020742 001776 BEQ TISER6. 

49 020744 103413 BLO T1SER8 

50 020746 TISER7: PRINTF #SERNX,#HIGHEST 
020746 012746 003326 MOV #HIGHEST, (SP) 
020752 012746 010240 MOV #SERNX,-(SP) 
020756 012746 000002 MOV #2,-(SP) 
020762 010600 v SP. 
020764 417 TRAP = CSPNTF 
020766 062706 000006 ADD #6,SP 

51 020772 000726 BR T1SER3 

52 020774 062702 000004 TISER8: ADD #D.SERN,R2 ;PUT ANSWER INTO DRIVE TABLE 

$3 021000 012701 003250 MOV #TEMP, 

54 021004 112122 TISER9: MOVB (R1)+,(R2)+ 

55 021006 001376 BNE T1SER9 

56 021010 005303 DEC R 

57 021012 001402 BEQ TISERN 

58 021014 005724 TST (R4)+ 

59 021016 000702 BR T1SER2 

60 021020 062705 000054 TISERN: ADD #C.SIZE.RS5 

61 021024 005715 TST (R5) 

62 021026 001271 BNE T1SER1 

63 021030 013737 002156 002162 TIFMT: MOV CTABS,TSTTAB :GET FIRST TABLE ADDRESS 

64 021036 013701 002160 MOV CTRLRS,R1 [RUN DM PROGRAM ON ALL CONTROLLERS 





| rn 
|" CZUDEBO UDA=50 DISK FORMATTER MACRO V04.00 14=APR-82 16:50:39 PAGE 
| TEST 1: DUP PROGRAM DRIVER 


ee 
27-2 SEQ 0142 


65 021042 004737 011410 CALL RUNDM : AT ONCE 
66 021046 00140 BEQ 6$ 
67 021050 004737 011522 CALL RESPDM 
68 021054 6$: EXIT TST 
021054 104432 TRAP CSEXIT 
021056 000002 «WORD 1L10037-. 
69 021060 ENDTST 
021060 L10037: 
104401 TRAP CSETST 


021060 
70 021062 ENDMOD 





sstteiieminguensnpuineiiapatadllida sib “— nia. 
laoeem UDA=50 DISK FORMATTER MACRO V04.00 14-APR=82 16:50:39 PAGE 128 SEQ 0143 
| HARDWARE PARAMETER CODING SECTION 


— 


-SBTTL HARDWARE PARAMETER CODING SECTION 


| 
| 
| 


2 

? 021062 BGNMOD 

5 ++ 

6 ; THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 

7 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABSLES. THE 

8 : MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 

o : INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 

10 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 

3 3; WITH THE OPERATOR. 
13 : 
14 021062 BGNHRD 

021062 000027 -WORD L10040-LSHARD/2 

15 021064 LSHARD:: 
i$ sFORMAT OF HARDWARE P-TABLE IS AS FOLLOWS: 
Hb 4 021064 TABLE sSTART A TEBLE DEFINITION 
20 021064 ITEM HO.UBA 2 ; UNIBUS ADDRESS 
21 021064 ITEM HO.VEC 2 : UDA VECTOR 
22 021064 ITEM HO.BRL 2 ; BR LEVEL 
23 021064 ITEM HO.BST 2 ; BURST RATE 
24 021064 ITEM HO.LDR 2 ; DRIVE NUMBER 
25 0621064 END 


—— a 


pte T - = 
 ¢ CZUDEBO UDA-50 DISK FORMATTER MACRO V04.00 14-APR-82 16:50:39 PAGE 139 SEQ 0144 
HARDWARE PARAMETER CODING SECTION 


; 1 021064 GPRMA =H. UBA, HO.UBA,0,160000,177774, YES sBUS ADDRESS 
os idee 000031 «WORD TSCODE 
| 021066 021142 «WORD H.UBA 
021070 160000 WORD TSLOLIM 
021072 177774 «WORD TSHILIM 
2 021074 GPRMA =H. VEC ,HO.VEC,0.4,774,YES ; VECTOR 
021074 001031 ; «WORD TSCODE 
021076 021170 «WORD H.VEC 
0211 000004 WORD TSLOLIM 
021102 000774 WORD TSHILIM 
3 021104 GPRMD H.BRL,HO.BRL,D,-1,4.,7..,VES ; BR LEVEL 
021104 002052 «WORD TSCODE 
021106 021177 -WORD 4H.BRL 
021110 177777 «WORD = 
021112 000004 WORD TSLOLIM 
021114 000007 «WORD TSHILIM 
4 021116 GPRMD 4H.BST,HO.BST,D,-1,0.,63.,YES : BURST RATE 
021116 003052 «WORD TSCODE 
021120 021210 «WORD H.B8ST 
021122 177777 WORD <1 
021124 000000 WORD TSLOLIM 
021126 000077 WORD TSHILIM 
5 021130 GPRMD 4H.LDR,HO.LDR,D,-1,0..255.,YES ; DRIVE SELECT NUMBER 
021130 004052 WORD TSCODE 
021132 021232 «WORD 4H.LOR 
021134 177777 «WORD -1 
021136 000000 «WORD TSLOLIM 
021140 000377 WORD TSHILIM 
6 021142 ENDHRD 
-EVEN 
? 021142 L10040: 
8 021142 125 116 111 H.UBA: .ASCIZ Nea go A etcnts OF UDA\ 
9 021170 126 105 103 H.VEC: .ASCIZ \VECTO 
10 021177 102 122 040 H.BRL: .ASCIZ \BR LEV vel \ 
11 021210 125 116 1171 H.BST: .ASCIZ \UNIBUS BURST RATE\ 
i 021232 104 122 111 H.LDR: Z \DRIVE NUMBER\ 





BO UDA-50 DISK FORMATTER MACRO V04.00 14-APR-82 16:50:39 PAGE C12, SEQ 0145 


1 


4 
5 
6 
? 
8 
9 
10 
11 
12 021250 
021250 
021252 
13 
14 
15 
16 021252 
17 
18 021252 
19 
20 
21 
22 
23 
ra 


25 021252 


CZUDE 
SOFTWARE PARAMETER CODING SECTION 


000022 


000001 


000010 


-SBTTL SOFTWARE PARAMETER CODING SECTION 


* 

THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 

THAT ARE ee on THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 

INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 

MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 

WITH THE OPERATOR. 


Sete Ge Ge Ge Ge Se Ge 
. + 


BGNSFT 
«WORD L10041-L$SOFT/2 
LSSOFT:: 

sFORMAT OF SOFTWARE P-TABLE IS AS FOLLOWS: 
TABLE sSTART A TABLE DEFINITION 
ITEM SO.BIT 2 YES/NO ANSWERS 

SO.FM1 = BITO : REFORMAT MODE 

SO.FM2 = BIT1 ; (AGAIN) 

SO.FMT = SO.FM1+SO.FM2 
SO.CNS = BIT2 3; RECONSTRUCT MODE 
SO.STR = BITS : RESTORE MODE 


END 


pens SS SS sa — 


| 
| EZUDEBO UDA=SO. DISK FORMATTER MACRO VO4.00 14-APR~B2 16:50:39 PAGE 21, SEQ 0146 
SOFTWARE PARAMETER CODING SECTI 
1 o3i2se GPRML S.FMT,SO.BIT,SO.FM1,VES | :REFORMAT? 
021252 000130 | WORD  TSCODE 
| 021254 021467 “WORD = S. FMT 
021256 000001 “WORD SOF M1 
| 2 021260 XFERT SWEND 
| 021260 017024 WORD  TSCODE 
| 3 0212 GPRML S.NRF,SO.BIT,SO.FM2,VES | ;AGAIN = REFORMAT? 
021262 000130 WORD TSCODE 
021264 021316 “WORD NRF 
| 021266 000002 “WORD SO.FM2 
4 021270 XFERT SWEND 
021270 013024 WORD  TSCODE 
5 021272 GPRML S.CNS,SO.BIT,SO.CNS,YES | ;RECONSTRUCT 
021272 000130 WORD  TSCODE 
021274 021546 “WORD $..CNS 
021276 000004 “WORD SO. CNS 
6 021300 XFERT SWEND 
021300 007024 WORD TSCODE 
7 021302 GPRML S.RST,SO.BIT,SO.STR,YES | :RESTORE? 
021302 000130 .WORD TSCODE 
021304 021611 “WORD SRST 
021306 000010 “WORD SO.STR 
8 021310 XFERT SWEND 
021310 003024 WORD  TSCODE 
9 021312 DISPLAY S.NOF  ; WARNING 
921312 900003 WORD  TSCODE 
021314 021732 “WORD S..NOF 
10 021316 SWEND: ENDSFT 
~EVEN 
4y 021316 110041: 
12 021316 §©=6015—s—«é2 S.NRF: .BYTE 15,12 
13021320 «= 116—si«*d#'—iti—«*i2 “ASCII\NOT USING EXISTING INFORMATION WILL DESTROY THE FACTORY BAD SECTOR\ 
14 021422 015-—s«éOO122 “BYTE 15,12 
15021426 111 «+116 106 SASCIININFORMATION ON THE DISKS.\ 
16021455 015 O12 “BYTE 15,12 
17021457, 101,—~S's«d107——t«*22072 “ASCII\AGAIN = \ 
18 021467 122 105 106 S.FMT: “ASCIZ\REFORMAT USING EXISTING BAD SECTOR INFORMATION\ 
19 021546 122 105 #103 S.CNS: <ASCIZ\RECONSTRUCT BAD SECTOR INFORMATION\ 
20021611 104 117 060 S:RST: ‘[ASCII\DO YOU HAVE A FILE ON THE SYSTEM LOAD DEVICE\ 
21021665 015 + ~=—s O12 “BYTE 15,12 
22 021667 (040'i‘id208~—*i(‘<ié‘«‘iS -ASCIZ\ CONTAINING BAD SECTOR INFORMATION\ 
23 021732 «= 131,—=S's«d117,)—=S'ss«d125s—«S.NOF: ASCIZ\YOU CANNOT PROCEED WITHOUT SUCH A FILE.\ 
2% 022002 122 105 123 ZASCIZ\RESTART PROGRAM AND SELECT TO REFORMAT OR RECONSTRUCT DISK.\ 
25 022076 000 “BYTE 0 
26 “EVEN 


28 -DSABL AMA 
29 000000 -PSECT END 





hia i  lel, Bilal Bats — E12. : 
CTUDEBO UDA=50 DISK FORMATTER MACRO VO4.00 14-APR-B2 16:50:39 PAGE 192 SEQ 0147 
PATCH AREA 


1 -SBTTL PATCH AREA 

3 SPATCH:: 

4 000050 «REPT 40. 

5 «WORD 0 

§ -ENDR 

8 000120 LASTAD 
00012 -WORD TS$SIZE 
000124 LSLAST:: 

10 000124 ENDMOD 


| 
-EVEN 
000120 000142" -WORD TSFREE 
2 000007 











PATCH AREA 


AMIC MEMOR 


0 
ERRORS DETECTED: 
et wed omit 


1 000124 
000124 
Boose 000000 
000126 000005 
‘ 000130 
5 000130 172150 
6 000132 000154 
7? 000134 000005 
8 000136 000077 
1% 000140 000000 
11 000142 
12 000142 
13 000142 
14 
15 
16 
17 
18 
19 
20 
21 00001 


0 


CZUDEBO UDA=50 DISK FORMATTER MACRO V04.00 14-APR=82 16:50:39 PAGE t 13, 


BGNSETUP 1 
BGNPTAB 


.WORD 172150 
154 
“WORD 63. 
“WORD 0. 
ENDPTAB 


ENDSE TUP 


- END 


atta a 114 PAGES) 
PUDEBO, A: TUDEBO/C= 50. 03S¥C34R.MLB/P:1,Z2UDEB0.DOC ,ZUDEB0.MAC 


a a ne ee 


110042: 


UNIBUS ADDRESS 
ay ADDRESS 


LEVEL 
UNIBUS BURST RATE 
LOGICAL DRIVE NUMBER 


L10044: 


«WORD 
- WORD 


SEQ 0148 


0 
L10044-./2-1 


jaan anegany sasiicaieteaiones 


6 12 
BO UDA-50 DISK FORMATTER MACRO V04.00 14-APR-82 16:50:39 PAGE S-1 
CROSS REFERENCE TABLE (CREF V04.00 ) 


SPATCH 132-34 
ADR 31-108 
ALOCM 57-164 50-16 118-4 119-20 121-4 


a7- 
BAS 1-154 82-5 82-5 82-5 83-5 83-5 
BASL 51-134 83-5 


BASLN 51-174 82-5 83-5 
NO - 


BASNO 51-128 82-5 835 
BITO 31-108 130-19 

BITOO 31-10 31-108 

BITO1 31-10 31-108 

BITO2 31-10 31-108 

BITO3 31-10 31-108 

BITO4 31-10 31-108 

BITOS 31-10 31-108 

BIT06 31-10 31-108 

BIT0? 31-10 31-108 

BITOB 31-10 31-108 

BITO9 31-10 31-108 

BIT] 31-108 42-23 130-20 
BITIO 31-108 

BIT11 31-104 

BITI2 31-108 

BIT13 31-104 

BITI4 31-108 

BITIS 31-108 42-15 43-12 59-27 61-20. 69-26 = 74-15 89-29 
BIT2 31-108 42-24 130-22 
BITS 31-108 942-25 17” -23 
BITS 31-108 42-27 

BITS 31-108 42-30 

BIT6 31-108 42-31 

BIT? 31-108 42-33 

BITS 31-104 

BITS 31-108 


BLOCMD 60-49 63-14 63-44 95-3 97-154 
C$BRK 27-84 60-8 100-21 107-12 110-27 


CSCLCK 27-84 116-43 116-45 
CSCLOS 27-84 72-18 = =122-13 + =126-10 


ook 27-84 56-8 116-18 123-4 123-9 123-15 123-21 


C$DU 
CSEDIT 27-84 27-34 
CSERDF 27-88 60-24 61-36 62-21 63-8 67-22 69-30 96-3 100-29 101-5 105-35 





106-11 


107-33 


SEQ 0149 


109-44 


——— ee _—__——~ = 


| 


 CZUDEBO UDA=50 DISK FORMATTER MACRO V04.00 14-APR-82 16: 


CROSS REFERENCE TABLE (CREF V04.00 ) 


110-36 3=- 1115 
8a 


| CSERSE 7-84 56-7 


CSGMAN 27-84 124-1 
CSGPHR 27-84 117-10 


124-104 


84 
C.BST 42-19% 106-17 
C.DRO 42-354 61-15 
R1 364 


° 42- 

° 42-378 

-DR3 = 42-384 

° 42-398 

° 42-404 
C.DR6 42-414 


C 
C.FLG 42-22 59-23 
63-47* 63-50* 


123-3 


127-11 


127-20 
120-4 


54-20 
54-94 
127-21 


127-50 


60-10 
63-62 


63-67 
98-16* 
58-15* 
61-5 
63-55 


123-8 123-14 123-20 


127-17 = 127-68 


127-32 


54-24 54-28 54-32 


54-98 54-102 54-106 


ie 116-16 


116-54 


121-11 = 127-25 


60-13 60-15 60-38 
63-63 63-69" 63-70 


63-72* 63-73 


98-17 

60-9 63-29 97-16 
117-27 = 118-3 120-12 
100-14 100-27 110-22 





a 
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54-44 54-53 54-59 54-73 
54-118 


61-12" 62-6 62-26 63-35* 
98-21% 100-17 101-1* 


106-3 106-22 107-20 


54-77 


63-39* 


SEQ 0150 


54-81 


63-40 


(C.TOH 42-448 60-33 100-24 
C:TOT 42-45 60-29 63-5 
/CLUADR 42-128 75-16 107-25 


5 
C.VEC 42-168 94-16 107-14 
CALR4 





CALRE 79-3 79=4 79-5 


99-24 
CLRBUF 63-16 63-46 99-16 


CON.QU 77-3# 77-7 80-21 


114-35 
CPNTX 91-13 91-15 91-17 
R 31-124 8 73-13 75-21 





110-30 
94-148 
117=19 


60-12 
117-22 


81-44 


77-6 


91-194 
78-10 


98-21 
63-62 
63-35 


63-39 
63-39 
63-69 


117-23 
117=15 


127-64 
127-31 


94-15* 


127-30 
119-7 


77-13 


82-7 


100-17 
63-40 


63-62 
63-70 


120-9 


78-10 78-30 82-7 83-7 90-13 90-22 


83-7 91-8 


101-1 103-19 
63-47 63-50 95-13 


127-23 127-63 


91-54 


114-27 


SEQ 0151 


114-32 
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CROSS REFERENCE TABLE (CREF V04.00 ) 


D.SIZE 43-154 121-3 
D.UNIT 43-108 61-19 61-25* 74-14 75-15 = 127-29 
AS1 124-138 


s 124-8 
DATE 116-32 124-14 124-32 
ATEL 48-24 124-1 124-2 124-44 
DATEO 48-44 67-26 116-30 124-33 
DATEQ 50-34 124-1 
DATEX 53-12# 124-31 
DAY 124-54 
DAY] 124-46# 124-57 
DAY2 124-47 124-584 
DAYS 48-19% 124-42 
DERR 124-4 124-6 124-10 §=124-12) 124-14 124-314 = 124-59 
DF.ACT 41-214 63-60 
DF.LCL 41-24 

-NES 41-224 

-SA 41-268 
DFPTBL 29-10# 

27 


93-164 114-19 114-21 114-23 


95-4 95-6 95-7 


68-25 68-504 68-57 68-64 


74-15 


124-61 


124-64 


124-84 


124-88 


124-90 


SEQ 0152 


SEQ 0153 
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SEQ 0154 


L 12 
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CROSS REFERENCE TABLE (CREF V04.00 ) 


131-3 131-5 131-7 


122-9 


131-1 


117-3 
129-5 


116-35 
89-15 


72-27% 


116=34* 
88-134 


72-20* 
57=20* 
78-29 


57-16 


27-88 
FSINIT 27-88 
27-84 
27-84 
56-74 


GSRADA 27-84 
GS$RADB 27-84 
GSRADD 27-84 


GSOFFS 27-84 


FSHW 


FSJMP 


| 
| 
| 
| 
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, CZUDEBO UDA=50 DISK FORMATTER MACRO V04.00 
| CROSS REFERENCE TABLE (CREF V04.00 ) 


H.UBA 129-1 129-8" 
H.VEC 129-2 129-98 
HC.BF1 35-248 35-25 63-15 
HC.BF2 35-258 35-27 54-135 63-3 
HC.BS2 35-138 35-25 35-27 63-18 
“CCT 35-19% 60-40 60-50% 98-19» 
HC.CEV 35-228 35-23 97-18 
HC.CMD 35-184 35-19 35-20 106-25* 
HC.CPK 35-238 35-26 54-122 63-33 
HC.ESZ 35-118 35-21 35-23 
HC.INT 35-15# 35-16 
HC.1SZ 35-94 35-16 105-21 106-4 
HC-MCT 35-174 63-74" 98-18% 
HC.MEV 35-208 35-21 
HCAMPK 35-218 55-22 54-124 62-9 
HC.MSG 35-16# 35-17 35-18 106-23 
HC:PSZ 35-128 35-22 35-24 97-19 
HC-RSZ 35-10# 35-18 35-20 105-21 
HC.S1Z 35-278 58-13 
HCOMM 58-134 59-28 
HEADER 69-24 75-138 
HICHES 48-64 127-46 127-50 
HO.ERL 118-7, 119-3 128-224 =129-3 
HO.B3T 118-12 119-9. 128-234 129-4 
HO-LUR 121-15 121-22 128-24" 129-5 
HO-UEA 117-20 128-20" 129-1 129-1 
HO.VEC 117-24 118-10 119-6 128-214 
31-108 
SAU -27-84 
ISAUTO 27-84 125-108 125-124 
ISCLN 27-84 126-84 126-134 
$DU 27-84 
ISHRD 128-14# 129-64 131-9 
ISINIT 27-84 116-84 122-14 124-104" 
I 27-84 27-26 «= 27=26H = 30-16 
127-34 127-70 127-708 128-3 
ISMSG 27-84 = 54-148 = 54-16 = 54-184 
54-40" 54-42" 54-448 54-468 
54-854 54-874 54-894 54-918 
54-1148 54-116 54-1184 
ISPROT 27-84 115-108 
ISPTAB 27-84 133-3 133-3# = 133-11 
I$PWR 27-84 
ISRPT 27-84 
ISSEG 27-84 127-5 
ISSETU 27-84 133-1 133-14 == 133-3 
ISSFT 130-124 131-9 131-108 
ISSRV 27-84 102-10 102-144 103-18# 
ISSUB 27-84 127-5 
ISTST 27-84 127-5 = '127-5H# = 127-11 
IBE 31-10" 
1DU = 31-108 
IER 31-10" 
INFO 64-5. 69=15#@ 70-14 71-14 
INFOE 69-18  69~304# 


14=APR=82 16:50:39 PAGE S=-7 


63-45 
99-19 


99-21 

106-26* 
95-4« 95-5* 95-6* 
62-14 62-19 63-11 
106-24* 107-21 
97-25 
106-4 
129-3 129-3 
129-4 129-4 
129-5 129-5 
129-1 
129-2 129-2 129-2 
30-164 31-3 31-34 

-34 132-10 132-108 
54-204 54-224 4-248 
54-534 54-554 54-594 
54-948 54-964 54-98% 
133-114 
133-13 9133-134 
103-214 113-5S# 113-94 
127-17 =127-68 = =127-69 


SEQ 0155 
95-7* 97-29% 98-17% 99-18% 99-19" 106-26 
63-58 63-60 63-65 63-67 63-72 63-73 95-11 
114-38 114-384 115-3 115-34 126-15 126-154 127-3 
54-268 54-284 S4-30# 54-324 54-344 54-36" 54-388 
54-614 54-734 54-754 54-778 54-798 54-814 54-834 


54-1004 54-102# 54-1044 54-1064 54-1084 54-1108 54-1124 


127-694 127-694 
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CZUDEBO UDA=50 DISK FORMATTER MACRO VO04.00 14-APR-82 16:50:39 PAGE S=8 
CROSS REFERENCE TABLE (CREF V04.00 ) 


INF OP 


i, ek RR-KO me 
amd -? 4 
w qa 
oO 
as © 
zr 


LSHPCP . 


| scosiaitmidatiaieana 


69-20 69-254 
69-16 69-268 
116-11 = 116-13 
120-104 120-13 
120-11 121-34 
121-134 121-19 
121-14 121-214 
120-5 122-34 
122-94 

116-21 = 116-24 
116-31 116-334 
117-104 119-17 
117-164 117-28 
118-174 118-19 
120-44 122-5 
116-184 116-28 
122-124 

31-104 

31-104 

27-84 


27-34 125-108 
27-34 126-84 


a 
ort. 49-164 


4 
og 28-94 


a 
et Fl 49-128 


# 
ig 128-14 


116-15 116-17 = 116-194 


116-294 


116-54 
75-19 §=9100-22 «110-28 = 113-8* = 114-13 
60-36 100-24 100-27 104-26 104-27 


aS 116-53* 


128-144 


116=40* 
104-28 


WO. 


-6* 


113-7* 


114-16 


SEQ 0156 


114-17 
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CZUDEBO UDA=50 DISK FORMATTER MACRO V04.00 14-APR=82 16:50:39 PAGE S-9 SEQ 0157 
CROSS REFERENCE TABLE (CREF V04.00 ) 





iSHw 37-34 29-10 29-108 

LSINIT 27-34 116-84 

LSLADP a 

LSLAST 37-54 132-8" 133-13 

LSLUN 27-348 59-248 60-12" 74-1468 


” 
LSPROT 27-34 115-108 
SPR a 
LSRE a 
LSSOFT $-ete 130-12 130-124 


27-34 30-10 30-104 


LSUNIT 27-34# 75-13 119-16 122-4 127-14 
L10000 29-10 29-178 
Red 30-10 30-144 


S 
3 


ee ee NaowneuwNee 
N—ONOUSWN“ONOUEWN oO 
w 
= 
a 
@ 


“14 174-1044 


SSSS8SSSSSsSssssssssssss 


WAS 
ono 


127-17 =127-68 127-694 
129-64 


3 





men eC 


ceo 


| CROSS REFERENCE TABLE (CREF V04.00 ) 


130-12 
133-34 


117-17 


131-104 

133-114 
59-34 
59-30 
61-30 
96-34 
95-10 
92-8 
54-19 
54-84 
76-41 


92-10 92-124 114-24 
54-27 54-31 

54-88 54-92 54-105 

78-23 81-4 92-54 


68-59 116-29" 127-6 


114-28 
54-35 
54-109 

116-48 


127-12 


114-33 
54-39 
54-113 


124-31 


¢ 13 
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54-43 
54-117 


127-19 


54-52 
54-120 


127-29 


54-57 
54-126 


54-62 
54-133 


54-66 
54-137 


54-72 
82-5 


SEQ 0158 


54-76 
83-5 







NOCLOC 51-104 
NULL 47-398 
47-238 


NXMAD 

NXMI 102-108 
NXTTAB 117-11 
OSAPTS 27-84 


OP .F 
OP.GCS 37-10# 


e*eeeeee @ @ @ oO mm 
reas oacs 
Ww 
N 
4 
N 
] 


anurso 
oorna 
w 
N 
$ 
—_ 
= 


VIVSVVLSSS 
z 


ANDDDD 


P.CYL 264 
P.DEXT 40-524 
P.DFLG 40-534 


116-48 


i wl 
107-27 
118-22 
27-34 


27-324 


62-5 
95-2 


60-48 
97-21 
62-8 
62-5 
76-42 


76-46 
40-94 


40-464 


40-44 


63-60 


i 
CZUDEBO UDA=50 DISK FORMATTER MACRO V04.00 14-APR=82 16:50:39 PAGE S=11 
CROSS REFERENCE TABLE (CREF V04.00 ) 


107-26* 107-31 
119-10 = 119-154 


27-34 


27-34 
27-328 27-324 = =27-32H = 27-34 
27-34 132-8 


62-8 63-58 


63-58 


76-478 
84-6 85-6 86-6 92-17 
63-11 63-33* 95-5 99-19% 


62-19 98-17* 


ASD SS SS 


SEQ 0159 


—-————- SS - - 
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" CZuDEBO UDA=50 DISK FORMATTER ee V04.00 14-APR-82 16:50:39 PAGE S-12 SEQ 0160 
| CROSS REFERENCE TABLE (CREF V04.00 ) 


O* 
| P.DPI 40-548 63-65 


P 

P.HSTI 39-314 40-198 
P.MEDI 40-214  40-37# 
P.MLUN 40-174 40-334 
P.MOD 39-204 

P.OPCD 39-19% 40-64 


P.OTRF 39-278 40-134 
P.OVRL 39-514 95-6* 
9-368 


P 
yd 40-234 40-394 


P. 39-334 40-224 
P.STS 40-84 62-14 
P.TIME 39-434 

P.TRCK 40-244 

P.UADR 3 95-4" 


PB 91-144 
PF 47-37 91-124 
PNT 31-108 


54 54-66 
54-80 54-804 
54-109 54-109 


27-2 2 
PNINUM 77-24 77-30 
PNINUS 89-164 
PNIPKL 54-126# 54-130 
PNIPKT 54-97 54-101 


63-67 63-72 63-73 
40-354 


62-9 63-58 97-29% 
95-7* 


40-384 
95-11 


99-18* 
40-344 


54-154 54-154 54-19 54-19 54-198 54-19% 54-23 54-23 54-238 54-234 54-27 54-278 
54-35 34733" 54-39 54-39 54-39% 54-398 54-43 54-438 54-52 54-52 54-52 St-ahe 


54-57 4-5 54-57 54-574 54-578 54-574 54-62 54-62 54-62 54-624 54-628 & 

54-66 54-664 54- 4-664 54-72 54-728 54-76 54-76 54-764 4-768 - - 

5 ~84 54-84 54-844 54-844 54-88 4-8 4-92 54-928 4-105 54-1054 
54-109H 54-109 54-113 54-113 54-1134 54-1134 54-117 54-1174 54-120 - “126 54-126 


82-5 2-54 82-54 82-54 83-5 -5 3-5 83-5 

83-54 83-54 83-54 B83-5H# = 114-26 114-24 = 114-248 114-244 114-28 114-28 114-288 114-288 
114-334 HF it 116-48 116-484 124-31 124-314 127-19 127-19% 127-29 127-29 127-29 127-29 
78-4 89-144 


54-1204 
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S$ REFERENCE TABLE (CREF V04.00 ) 


104 


S 


90 
Fo} 


122-12 


Ssaseees 
Seeeeees 


31-108 94-20 107-27 
83-8* 91-11 92-5* 92-7* 92-9« 92-11% 


PRI 
PRI 
PRI 
PRI 
PRI 
PRI 
PRI 
PRI 
PRI 
PS 


91-164 92-9 
61-7 61-31 
127-67 
98-18 


63-74 98-18 98-19 


83-6 114-134 

61-37 62-22 63-9 63-27 
64-9 

63-59 


60-35 60-37 60-534 
61-33 63-57 63-75 


63-34 63-394 


61-364 63-61 63-76 


30-144 54-16% 54-20% 54-244 54-284 54-32H 54-36 54-408 54-448 54-538 54-59H 54-738 
W 54-948 54-984 54-1028 54-1064 54-110# 54-1148 54-118# 102-144 103-218 113-94 
+ ay a 124-1044 125-124 126-134 127-20 127-20 127-20 127-20 127-32 127-32 127-32 








‘¢ 
; 


| ne ee «6 13 
_ CZUDEBO UDA-50 DISK FORMATTER MACRO V04.00 14-APR-82 16:50:39 PAGE S-14 


CROSS REFERENCE TABLE (CREF V04.00 ) 


| SA.CM 
| SA.CMD 
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10-19 
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09-38 


1 131-3 131-3 131-3 131-5 131-5 


130-214 
130-234 131-7 


131-5 


131-7 


131-7 


131-7 


SEQ 0162 


SEQ 0163 
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CROSS REFERENCE TABLE (CREF v04.00 ) 


“ST.DAT 41-138 


STLDIA 41-178 
VCINS 27-84 


SEQ 0164 
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| CROSS REFERENCE TABLE (CREF V04.00 ) 
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| CROSS REFERENCE TABLE (CREF V04.00 ) 


| 


SEQ 0165 


54-1128 54-114 


54-1044 54-106 54-1084 54-110 


54-964 54-98 54-1004 54-102 


54-94 


54-914 


54-89 


129-44 
127-68 
129-44 
129-44 

54-59 
103-21 


123-204 127-10 


127-32 
129-2 
129-4 
129-4 
54-53 
54-118 102-14 


129-4 


67-22 


106-114 107-33 
54-44 


129-2 
129-34 
127-174 127-17# 127-68 
129-34 
129-34 


63-84 

1235-144 123-20 
129-3 

129-3 

129-3 

54-40 

54-114 


127-204 127-204 127-208 
63-8 

123-14 

129-24 

127-17 

129-24 

129-24 

54-36 

54-110 


127-324 127-328 


105-354 106-11 
123-84 
129-2 


62-214 
129-2 


54-32 
54-106 


129-2 


54-28 
54-102 


129-14 

127-114 127-114 127-17 
129-14 
129-14 


127-204 127-20# 127-32 


127-324 129-1 
127-324 129-1 
127-324 129-1 


113-9 
127-11 


113-54 
124-14 
129-1 
129-3 
127-20 
27-208 127-32 


24-14 
127-204 127-32 


127-204 127-32 


124-14 
122-144 122-148 127-11 


133-34 
131-10 
103-184 103-21 
124-1 
127-324 127-324 127-324 


54-118 
133-13 
130-124 
124-1 


27-348 

91-144 

54-73 
113-9 


TSLTNO 132-84 


TSSPC 133-14 
30-10 
TSSTES 127-5# 
TSARGC 27-34 
127-50 
TSCODE 124-1 
127-32 
129-24 
129-5 
131-2 
131-4 
131-S# 
131-7 
131-9 
TSERRN 27-84 
TSEXCP 124-1 
129-5 
TSFLAG 122-14 
TSFREE 132-8 
27-84 
TSHILI 124-1 
129-5 
TSLAST 27-84 
TSLOLI 124-1 
129-5 
TSLSYM 27-8 
TSNEST 27-84 


TSGMAN 





| TS$SW 





SEQ 0166 
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- CZUDEBO UDA=S0 DISK FORMATTER MACRO V04.00 14-APR-82 16:50:39 PAGE S-18 


| CROSS REFERENCE TABLE (CREF V04.00 ) 


54-77 


126-84 
133-13 
30-10 


133-34 
133-13 


54-1084 54-110 


116-84 
131-8 


TSPCNT 133-14 
TSSIZE 132-8 

27-84 
TSTAGL 27-84 
TSTAGN 27-84 


TSSUBN 


124-104 125-104 125-12 
133-3 
133-34 
29-10 
54-26 
116-8 


115-104 116-8 


124-1 


54-1184 102-14 
127-114 127-17 


124-1 


114-38 


113-94 


131-7 


TSTEST 27-84 


28-9 


TICNS 127-13 


TIFMT 127-7 
TISER1 127-24# 127-62 


TSTSTS 27-84 


TSTSTM 27-84 


11 
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| CZUDEBO UDA-50 DISK FORMATTER Vee V04.00 14-APR-82 16:50:39 PAGE S-19 
CROSS REFERENCE TABLE (CREF V04.00 ) 


TISER2 
TISERS 
TISERS 


TERM 
TINDEX 


UF. 4 


127-278 
ae 


-4 
Vv 103-184 
39-124 





127-59 

127-51 

7-41 
3a 


1 
1 
1 
1 
1 
1 
1 
1 


128-23 
60-6 
59-33* 


109-20 
109-64 


105-42 


109-32 
108-11 


110-32 
108-3* 
110-184 





SEQ 0167 

123-13) «127-32 127-33) 127-45) = 127-53 
42-124 42-13 42-13 42-134 42-16 42-16 42-164 42-19 42-19 42-19% 42-20 
42-21 42-218 42-22 42-22 42-228 42-34 42-34 42-348 42-35 42-35 42-354 
42-37 42-37 42-37# 42-38 42-38 42-384 42-39 42-39 42-398 -40 2-40 
42-418 42-42 42-42 42-428 42-43 42-43 42-438 42-44 42-44 42-448 42-45 
42-46 42-468 42-47 42-47 42-47# 42-49 43-78 43-9 43-9 43-98 43-10 

43-13 43-13# 43-15 128-184 128-20 128-20 128-20# 128-21 128-21 128-214 128-22 
138-23 128-234 128-24 128-24 128-244 150-164 1350-18 130-18 130-184 
127-63* 
60-7* 61-6* 
109-29 
106-12 106-324 
109-424 
108-194 
110-34 
108-12* 108-135 110-19* 110-25 111-164 


po et 


13 
| CZUDEBO UDA=50 DISK FORMATTER MACRO, V04.00 14-APR=82 16:50:39 PAGE $=20 
| CROSS REFERENCE TABLE (CREF V04.00 ) 





UF .WP a 

UFREEZ 47-22 59-35* 61-3 61-13* 69-19 69-21% 
URNING 47-20 59-16% 59-31% 59-40 61-32* 

URUN 47-19% 59-15* 59-20 60-7 

WAITMS 95-9 100-114 


X3A - 54-23 
K4 -84 54-27 
x8 52-108 54-39 
X8A ~44 54-39 
x9 52-114 54-31 


XFRU 53-84 rat; # 54-72 85-5 


XSA 3 

YEAR19 48-314 124-92 
YEAR20 48-32# 124-95 
YER1 124-694 


1 
YER2 124-70 ieence, 124-834 


124-964 124-99 
YERS 124-91 124-97 124-100 124-101 


SEQ 0168 


| 


as aah on 
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CROSS REFERENCE TABLE (CREF V04.00 


ERRDF 


44-318 


124-1 


54-49 
59-27 
116-13 


127-20 


54-98 


113-9 
80-9 
80-21 
62-21 


123-8 
127-17 


127-32 


) 


107+15 


68-36 74-15 75-16 75-17 = 116-26 = 117=19 
116-17 116-44 -116=46) = 127+9 
127-3 128-3 

54-26 54-30 54-34 54-38 54-42 54-46 
54-100 54-104 54-108 54-112 54-116 
110-27 
123-9 123-15 = 123-21 
128-25 130-25 

127-70 132-10 

54-28 54-32 54-36 54-40 54~44 54-53 
54-102 54-106 54-110 54-114 54-118 

80-9 80-9 80-9 80-9 80-9 80-9 
80-21 

63-8 67-22 69-30 96-3 100-29 101-5 
123-14 123-20 127-10 127-16 

127-68 


117-20 


54-55 


54-59 


80-154 


105-35 


127=30 


54-61 


54-73 


80-21 


106-11 


127-31 


54-75 


54-77 


80-21 


107-33 


54-79 


54-81 


80-21 


109-44 


SEQ 0169 


54-83 


54-85 


80-21 


110-36 


-———__- 
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| CROSS REFERENCE TABLE (CREF V04.00 ) 


ie ar-18 a rh bed 28 bh od 54-16 54-168 54-2 54-208 54-24 54-248 54-28 54-284 


4-3 erat 4-404 e-e¢ 54-448 54-5 54-538 54-59 54-598 54-75 <4-734 
54-778 4-81 54-814 $7793 e7-450 54- 4 54-894 54-94 54-948 54-98 54-984 54-102 54-1028 
-1064 aa F10 54-1108 54-114 54-1144 aa js 54-1184 102-14 102-144 103-21 103-214 113-9 113-94 
ie - 115-16 9115-164 124-104 124-1064 it a 125-128 126-13 126-134 126-15 126-154 127-69 127-698 
1 at ° 131-4 131-48 131-6 131-8 131-84 -10 -10# 
127-118 127-178 127-684 131-2 131-24 131-4 131-48 8131 oe 131-8 131-84 
7-34 7-34 27-34 27-34 7-34 27-34 $f =34 27- 27- ha 27-34 7-34 7-34 
7-34 7-34 27-34 27-34 7-34 7-34 7-34 7-34 27-34 7-34 ae + 7-34 7-34 
7-34 7-34 27-34 27-34 7-34 7- 27-34 - 7-34 27-34 7- 7-348 7-344 
7-348 827-348 8 27-348 = 27-348 7-348 27-348 27-348 7-348 7-348 27-348 7-348 27-348 7-348 
27-348 27348 27-348 27-348 27-348 27-348 27-348 = 27-348 7-348 27-348 7-344 7-348 7-348 
27-348 827-348 27-348 27-348 = 27-348 7-348 28-9 28-98 10 0 $7598 10 10 
31-34 49-12 49-128 49-16 49-164 4-14 54-148 54-18 54-184 54-22 “224 54-26 54-268 
54-308 54-34 54-344 54-38 54-384 54-42 54-428 - 54-55 - 54-61 54-614 
54-754 - 54-798 -83 - 54-87 4 54-918 - - 1 -100# 


54-79 54 54-834 54-874 54-91 54-96 54-964 54 
54-1068 54-108 54-108# 54-112 54-1124 54-116 54-1164 102-10 102-104 103-18 103-184 113-5 113-S# 
115-10 4 ashy 116-8 116-84 125-10 125-10# 126-8 126-84 127-38 128-3 128-14 128-148 130-12 


132-8 32- 
27-34 27-34 27-34 27-34 27-34 27-34 27-34 27-34 27-34 27-34 27-34 27-34 27-34 
27-34 27-34 27-34 27-34 27-34 27-34 27-34 27-34 27-34 27-34 27-34 27-34 27-34 
27-34 27-34 27-34 7-34 27-34 27-34 =34 27-34 27-34 27-34 27-34 27-34 7-34 
27-34 27-34 27-34 27-34 27-348 7-348 = 27-348 = 27=348 27-348 27-348 = 27-348 = 27-348 27-348 
27-348 = 27-348 = 27-348 734K 27-348 27-348 27-348 = 27-348 = 27-348 = 27-348 = 27-348 = 27-348 3927-348 
27-348 = 27-348 27-348 27-348 27=34K 7H 34H8 = 27-348 = 27-348 27-348 = 27-348 27-348 27-348 927-348 
“340 27-348 = 27-348 27-348 = 27-348 = 28-9 28-9 28-94 j~ 9-10 0 30-104 
49-12 49-128 49-128 49-16 49-16 49-168 49-164 54-16 54-168 54-20 54-208 54-24 54-248 
54-284 54-32 54-324 54-36 54-364 54-40 54-408 54-44 54-448 54-55 54-534 54-58 54-58 
54-58 54-58 54-584 54-58 54-58H# 54-58# 54-59 54-59" 54-73 54-738 4-77 54-778 54-81 
54-85 54-854 4-89 54-894 54-94 54-948 54-98 54-984 54-102 54-102# 54-106 106 54-110 
54-114 9 54-114# 54-118 54-1184 56-7 56-7 56-7 - 56-74 -78 56-78 56-74 56-78 
= = 60- 60-24 60-24 60-24 60-24 60-244 60-244 60-248 60-248 60-248 61- 
61-36 61-36 61-364 61-364 61-364 61-364 61-364 62-21 62-21 62-21 -21 Ge~sie 62-218 
62-214 62-214 3-8 - = 63- 63-84 63-84 63-84 65-84 67-22 67-22 
67-22 67-224 67-224 67-224 67-22 67-22% 69-30 69-30 69-30 69-30 69-308 6 6 
69-308 72-18 72-184 72-19 - 72-19% 72-19% 72- ?2- 72-238 72-238 72-24 72-248 
91-12 91-12 91-12 91-12 91-12 91-128 91-128 91-12% = =91-12% =—91-128% = 91-14 91-14 91-14 
91-14 91-14 91-148 91-148 91-148 8991-148 991-144 - 91-16 91-16 91-16 91-16 91-16 
91-164 91-164 91-164 91-164 91-18 91-18 91-18 91-18 91-18 91-18 91-184 91-18% 91-184 
91-184 94-20 94-20 94-20 94-20 94-20 94-20 94-208 94-208 - - 94-208 94-208 
=3 96- 96- - 96-34 96-34 96-34 - 100-21 100-214 1 29 
100-294 100-294 100-294 100-294 101-5 101-5 101-5 101-5 101-54 101-54 101-54 101-54 
02-14 102-144 103- 103-214 105-35 105-35 105-35 105-35 105-354 105-354 105-354 105-35# 105-35¢ 
06-11 8106-17 = 106-11 106-114 106-114 106-114 106-114 106-114 107-12 107-12 107-27 107-27 107-27 
07-27 107-27 107-274 107-274 107-274 107-274 107-278 107-278 107-30 107-30 107-30# 107-308 107-33 
07-33 107-33 107-334 107-334 107-334 107-334 107-334 109-44 109-44 109-44 109-44 109-448 109-440 
09-444 109-444 110-27 110-27# 110-36 110-36 110-36 110-36 110-36" 110-364 110-364 110-368 110-360 
11-5 111-5 111-5 111-54 = 111-5#@ = 111-5# = 111-58) = 111-54) =: 113-9 113-94 116-10 116-10 116-108 
16-11 «116-114 «6116-12 «116-12 -116-12# 9116-124 116-13 116-134 116-14 116-14 116-148 116-148 116-15 
16-16 §=116-16 =116-164 116-164 116-17 116-174 116-18 116-184 116-353 116-334 116-34 116-34 116-348 
16-43 116-43) 116-434 116-438 116-434 116-44 116-444 116-45 116-45 116-454 116-458 116-458 116-46 
16-54 116-54 9116-54 116-54 = 116-54 116-54 = 116-544 116-544 116-544 116-548 116-548 116-54# 117-10 
17-104 117-104 117-10# 117-11 117-114 120-4 120-4 120-44 120-48 120-48 1se-3 120-5# 122-12 
22-124 122-12# 122-15 122-134 122-14 122-14 ice-360 122-144 123-3 123-3 123-3 1235-3 123-34 
23-34 = =6123-34 =61235-34#@ = 123-4 123-44 125-8 125-8 123- 123-8 123-84 123-84 123-84 123-88 





SEQ 0172 
3-15 123-158 
4-1 124-1 


4# 123-144 1 
4-1 


-™N 


54-224 
54-34 
54-46 
54-614 
54-834 
54-96 


54-144 


30-104 
54-22 
54-34 
54-448 
54-614 
54-83 
54-96 


116-144 116-16 116-164 116-43 116-438 
127-214 

54-204 54-248 

54-534 54-598 

54-944 54-984 


102-144 103-21 
126-134 126-15 


131-104 133-3 


131-10 
30-104 


54-1184 102-14 


122-124 127-21 
132-104 


102-144 103-21 
3a 
0 
i 
2 
116-124 116-14 


129-64 
30-10 


D 14 
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122-12 


3-14 
3-204 
124-14 
-17# 127-8 


9-44 


_ 
CUCU CUCUMIM 
Cel at al ol el oe el el el 


127-11 
27-178 

7-21 

7-32 

7-68 

2 

127-694 129-6 
116-104 116-12 
120-44 
131-104 132- 

-144 


1 


=14 
= we 1 


i] 
RCI EURCIREIEUIRKU CUCU EUCUMMIMmn 


S ceeii cuneik send eth auth endl need seek eee seal seeell eel el Sell coe 


3 
3 
4 
6 
7 
7 
7 
7 
7 
9 
9 
1 
1 
2 
131-10 


126-134 127-69 
107-304 116-10 
117-104 120-4 


54-1008 54-1008 54-102" 54-104 
-1 
1 
1 


128- 


126 
72-198 107-30 


127-108 127-118 127- 
116-454 117-10 


126-84 


54-144 
54-26 


116-344 116-434 BS aw bpd 116-544 117-108 120-44 
O# 
6a 
4 

54-61 


123-154 123-20# 123-21 


116-45 


128-3 
133-3 
MSMCHI 27-8 


MSLDRO 72-19 
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3 

3 

4 

6 

7 

7 

7 

7 

7 

59- 

2 

3 

31 

31 
24-18 
29-178 

126-84 


MSMCLO 27-8 
MSPRIN 54-58 
MSPUSH 27-26 









SEQ 0173 
91 


129-44 


91-16 


129-4 


-1 
107=27 107-27 107229 


91-16 


91-148 
129-34 


54-1164 102-10 

125-104 126-8 

94-208 107-27 
544 127-50 


91-14 


125-10 


54-1128 54-116 


94-204 107-27 
116-544 116-544 116-544 116- 


£14 
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| CROSS REFERENCE TABLE (CREF V04.00 ) 


91-12 
91-168 
94-204 


54-1084 54-112 
116-544 127-50 


54-1044 54-108 
127-32 
131-3 


115-34 


128-34 
127-204 


131-14 


1-1 


So 


54-1008 54-104 


! 


72-234 


a3 es 222 82 828288 aSe & 
ay het LAR eR rae aac Lame wy ee Thott 
BAASN AAASoorennN aS oom hy Se ty 4 SasorCNnAwnweo 
-— rere KK errr ercrene 
So % tt co oe te 
a ee Lane aed ey $45 Lah eae ORR 
SZARSKH ARRRVSSSLCLAAN ASKLAN RAASSSSSLCPNAAAN 
-- errr ee Se eh ee el el el el el 
Bs 
& as eh & ss ee 
sS-Sy $s Kom Sostasane on wo Sasrsnos 
RCC CHO RC RCC R  ACRRCO CA R A  R C RC R 
wrewnuo vee rE Re OOMIT RR enue slow ~ wK ONMNK 
BAASN AAAVSSLLNANNASAKNN AAASSOOOK enn 
-— eee ere Ke rn errr crren 
ae Be & 222 e 
ono-oO or Sosa SH oFESSNS er Sanscos Ms 0O 
TYEE TUTTE TET T TOPE TT LD TEEPE TLE TEED TS 
BWVNWNON WMO OS EK NNNNMMNOKNN NMNODOOSOeK KwNNN SO 
-—— Ce ce ol el oe el od [elk sell oe Se eth eh el el el ol el 
ares ean 22 a & meen Sa & be 
FRC ACRCRC RCC ROR SCCM NCE RCC ci aa CRC 
NRMAMNMMAN ANNORO © HK NNNNNNAKNNNMNNNODOAOOC RK KENNA 
- - teh ce el el el el Cel oe ok oe errr rrr 
cna 
oO Nu & eSeees ~N c 4 wt 
‘6 Te | eeeeeee Cot et So bh SL bbe 
owen VT TORK NOON SIR RIPE OR SR ITT OM OF. OOM TK 
NMMMMN KANN ORO GS HK NNNNNNAO EK NUNMNMNNNOOOO eX K—cucucucur 
- - tlh ce oe cel oll oe Ce eth see aoe Ce eel oe ee ee oe ol ool ed 
4 4 
NN. 222 222 22222 & 2222 Be 
Seam Snsas NFM eSIZAMSRSSAS NVA vNoseeeonw 
PIN &— CUD A OO ENA) = FU OWA SS EE MINE NNN A DOE VE MK TOK Mr 
8 ete s ee ee ee St SL So Ch Sh SSM oN 
Revers OO STORK RK RK ONIMR AR ST ER OVROM OR OOOMIRKR.O 
F=MMMN ERE MANN DAO & HK NNININNN AO RK NNMNNAN OD OO RK CUCINA 
- -— werent errr Ct ak see eel ol oe cel ol ed 
N Se 222 
o ome WOADRMAO-3M— COSMO COO 00 % Me—wwo0 ow 
MIMD De CUNO cOturu PNUD KH CUMS CUMUMN OR. ONNE MK TO — MK 
ee eee EE St fb bh Sl She SES AAS SSOM SK 
wRevwwws oor ow DWNME BR STOUR OM wT OMUOCR. OOOM Th O 
HMMM RK MAMMARR. Oe KE NNINANMMR ORK NNMMNNNOR COR RK NNNCINN 
Eo -— Sd el el el oe oe cere Ce eek ae eel el oe el el 
SaSBeVe ARs SRHSeeeeeeee =  Veee & & 
FIR CUNO CO CUCU NEM BENSON AR. (UNM HN = ONMOCUE 
eoeeveevoveveveeoveeeeeeeeceeevseeeeseereeeeeeeee eee eee 
WOT FTPNO PT TF ONWMOO OM OR. POUR. OMAR. rr OCU OOO OR MMAR OO 
HMMM NAMUAAR.. OC &— &— NININININMR. CK NNMNMNNMN OR OO RR eK NUKNNN 
- -- errr tt ee oe od errr 
ee 
co Bin ae 2ZV2aBeee 22 2 
SMR. EMAAR. BH ONUINIM EMM BE EME NNMNAR. NEM Oe Ne em Tor 
qeveeeveveeevreeeeepeoeeewowe eee eel ake ae ake kkk ak ak ake ea a 
WOTT TNO TT OMOOONM OR TOUR. OMR tr OCUNOOOOR MME 
FPN & CUA. 0 &  NUINUICKUNIMAWNAR. OF CNMNMNNN OR. DO ee CUCU 
- Se sd te el el el el ee Cel cee oe ed Ck eel ek ol el ol el oe 
; 3 3 
Rwy ae RR Re te a 222 222 
BSSRSqe3ARZo sSqu*sASSSAGSASASA-o, - JSF _ SAS 
Te Mk — COD DS SE NID MM ENDOW NE MG FEAT NO 
LALLA eee suba Sor bes tao ore $4 b bUuS oa SOMOS 
FNMA MMB. BO & UNNI OO &— NIM OR. OOO KK CuuuNN 
od -- rere corer Ce el ek el oe el ee 
[+e] 2222 © a 3 
F SCRCUCROR CRC UCRC AC CRCUCH SCRCRCR Sir ACR CC AORN AIC Sra 
Wo TUSTR OOMOR FR NAOMR tt TE NTN OOMM OR. 
ON FORA RSS CRNANRASOLNNAMAA ON ROSS KUNI 
- -- Cel oe oe oll el oe re Ch eh eek ee ek el ee ed 
oy 4 
wv 2z=22av 2 22 222 
S3B2Sae3SR woS3SeS3SFge3q°3FR Zooks SA goT SS 
ate ACC RC BC CC A 
RMR or UTR. OR MOR. IM MK OMAR. SPT TE NTNO OOMIM OR. K. 
ON SRO RRA AOS SUMAN OO eA ON DOO eH UNIAN 
- on rere corn Cth ek see ool el ol ol oe 
wT 2222 wr te 
oo-s Lyn OBO00 COSRNKAT RS OV N= OSSOMN Aen 
ACR RC Ce CC A 
WWMM wT OR MOR ZUQomn FFT KOK MR OOMMOR 
SRAAK NARA DROS KUNA OOH NAA DOR OOK KANNAN 
-- emer te ae ae ood Ce cet ook meth el el ell oe 
7.) ail 
2 w 2 = 
w > pe 7) 
2 3 ¢ : 
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XFERT 131-2 131-4 


1- 61-36 61-36% 62-21 62-21 62-21 62-214 63-8 
138, 69-30 69-30 $e~3) oe Soe $65) $6.3 96-3 
194-5 101-5 101-5#@ 105-35 105-35 108 -3 106-3 106-11 
197-330 109-44 109-44 109-44 109-444 11 “3 110-36 110-36 
| 123-3 123-3.) -123-3)0Ss(«123-3# =: 123-8 )3=—s_s-123-8 «= 123-8 )=—s«123-84# 
23-20 125-208 een 124-1 124-14 124-14 127-10 127+10 
127=16@ 127-178 127-20 127-20 127-208 127-208 127=32 1¢7-32 
24 129-3 («129-36 129 129-44 129-5 129-54 131-1 
1-48 131-5 131-5@ = 131 131-64 131-7 131-74 131-8 
MSXFER 131-2 131-28 131-4 131-4 131-6 131-64 131-8 131-84 
MANUAL 127-8 
MEMORY 116-34 
OPEN 72-19 127-21 
OR 46-98 
PNT 46-208 114-24 114-28 114-33 
PNT... 45°218 54°15 54-19 54-23 564-27 54-31 54-35 54-39 
54-76 54-80 54-84 54-88 54-92 54-105 54-109 54-113 
76-41 78-23 39 81-4 82-5 83-5. - 114-26 «114-28 }3=- 114-33 
PNIB 46-11 54-15 54-19 54-23 54-27 54-31 54-35 9 54-39 
34-76 54-80 54-846 54-88 54-92 54-105 54-109 54-113 
PNIF 46-84 75-15 76-41 78-23 81-6 =—s._«*1116=48 §=—:124=31S:1127+19 
PNTS 46-174 
PNIX 46-148 
POINTE 27-32 
POP 44-234 57-21 68-44 68-49 74-17 78-24 84-7 85-7 
173788 97-29 97-30 98-22 99-25 100-30 101-2 101-6 
PRINT 05-8 73-13 - 73-18 )=— 7521 77-6 77-13 78-10 78-30 
PRINTB 91-14 
PRINTF 91-12 127-50 
PRINTS 91-18 
PRINTX 54-58 91-16 
PUSH 44-154 57-16 68-33 68-39 74-11 84-4 85-4 86-4 
92-16 93-16 97-15 98-14 99-16 100-11 104-14 107-13 
READEF 116-10 116-12 116-14 116-16 
SETPRI 122-12 
SETVEC 94-20 107-27 116-54 
SVC 27-74 «= 27-8 
TABLE 32-208 42-10 43-7 128-18 130-16 
XFER 122=14@ 127-114 127-178 1¢7- 84 


54-117 
127-29 


86-7 
103-20 
82-7 


iS a tt at 


88-31 
104-41 


83-7 


89-16 
112-10 


63-84 
100-29 


54-126 


90-17 
108-19 
90-13 


89-22 
114-15 


SEQ 0174 
67-22 67-22 67-22 
Hs ak 44 Hs mt 101-5 
107=33 107-33 107-33 
1115 111-54 ices 
123-144 123-20 123-20 
127-16 127-16 127-16 
129-1 129-18 129-2 
131-3 131-3@ 131-4 
131-98 133-3 133-34 


54-62 24-66 54-72 


54-133 54-137 75-15 
127-29 

54-62 54-66 54-72 
54-133 54-137 82-5 
90-25 91-19 92-18 
110054 thane 194029 
90-22 114-27 114-32 
89-40 91-6 92-12 
114-22 


